tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

contrib/lisp/org-velocity: Fix failure for big window

Browse source 
* contrib/lisp/org-velocity.el (org-velocity-incremental-read): Reversed
  the estimation against window-height.
This commit is contained in:
Marco Wahl 2014-10-14 20:07:31 +02:00 committed by Bastien Guerry
parent eb973f90a9
commit 25d50e1d3c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
contrib/lisp/org-velocity.el
View file

@ -671,7 +671,7 @@ Stop searching once there are more matches than can be displayed."
;; Truncate the index to the size of the buffer to be ;; Truncate the index to the size of the buffer to be
;; displayed. ;; displayed.
(with-selected-window match-window (with-selected-window match-window
(if (> (window-height) (length org-velocity-index)) (if (< (window-height) (length org-velocity-index))
;; (subseq org-velocity-index 0 (window-height)) ;; (subseq org-velocity-index 0 (window-height))
(let ((hints (copy-sequence org-velocity-index))) (let ((hints (copy-sequence org-velocity-index)))
(setcdr (nthcdr (window-height) hints) nil) (setcdr (nthcdr (window-height) hints) nil)