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

Add min-display-lines option

Browse source 
Ref #60
This commit is contained in:
justbur 2015-09-02 12:04:37 -04:00
parent b015716afc
commit 13c1feaeeb
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
which-key.el
View file

@ -158,6 +158,12 @@ and nil. Nil turns the feature off."
(const :tag "Show in popup frame" frame)
(const :tag "Use your custom display functions" custom)))
(defcustom which-key-min-display-lines 1
"The minimum number of horizontal lines to display in the
which-key buffer."
:group 'which-key
:type 'integer)
(defcustom which-key-side-window-location 'bottom
"Location of which-key popup when `which-key-popup-type' is side-window.
Should be one of top, bottom, left or right. You can also specify
@ -1011,6 +1017,7 @@ is the width of the live window."
(+ 2 (string-width prefix-w-face))))
(prefix-top (eq which-key-show-prefix 'top))
(avl-lines (if prefix-top (- max-lines 1) max-lines))
(min-lines (min avl-lines which-key-min-display-lines))
(avl-width (if prefix-left (- max-width prefix-left) max-width))
(vertical (and (eq which-key-popup-type 'side-window)
(member which-key-side-window-location '(left right))))
@ -1019,7 +1026,7 @@ is the width of the live window."
(cond ((or vertical (> (plist-get result :n-pages) 1) (= 1 avl-lines))
result)
;; do a simple search for the smallest number of lines
(t (while (and (> avl-lines 1) (not found))
(t (while (and (> avl-lines min-lines) (not found))
(setq avl-lines (- avl-lines 1)
prev-result result
result (which-key--partition-columns