mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 03:11:09 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug in page layout

Browse source 
Pages were getting dropped
This commit is contained in:
justbur 2015-07-20 14:05:42 -04:00
parent 6adae6fd77
commit 82ea3f8789
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
which-key.el
View file

@ -852,7 +852,9 @@ element in each list element of KEYS."
(push (which-key--join-columns page-cols) pages)
(push (* (length page-cols) avl-lines) keys/page)
(push page-width page-widths)
(setq n-pages (1+ n-pages) page-cols '() page-width 0))))
(setq n-pages (1+ n-pages)
page-cols (list (cdr col))
page-width (car col)))))
(when (> (length page-cols) 0)
(push (which-key--join-columns page-cols) pages)
(push (* (length page-cols) avl-lines) keys/page)
@ -877,6 +879,7 @@ element in each list element of KEYS."
(member which-key-side-window-location '(left right))))
(result (which-key--partition-columns keys avl-lines avl-width))
pages keys/page n-pages found prev-result)
(setq int result)
(cond ((or vertical (> (plist-get result :n-pages) 1) (= 1 avl-lines))
result)
;; do a simple search for the smallest number of lines