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

Use toggle-truncate-lines; reduce -> cl-reduce

Browse source 
Enabling toggle-truncate-lines in which-key--buffer, to avoid empty
lines when the window is just a bit too narrow.
This commit is contained in:
Bar Magal 2015-07-10 20:30:30 +03:00
parent 0526b8b167
commit b399f3e02e
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
which-key.el
View file

@ -198,6 +198,7 @@ Used when `which-key-popup-type' is frame.")
"Create buffer for which-key."
(setq which-key--buffer (get-buffer-create which-key-buffer-name))
(with-current-buffer which-key--buffer
(toggle-truncate-lines 1)
(setq-local cursor-type nil)
(setq-local cursor-in-non-selected-windows nil)
(setq-local mode-line-format nil))
@ -569,10 +570,10 @@ the maximum number of lines availabel in the target buffer."
col-key-cns (car col-split)
rem-key-cns (cadr col-split)
n-col-lines (min avl-lines (length rem-key-cns))
col-key-width (reduce (lambda (x y)
col-key-width (cl-reduce (lambda (x y)
(max x (length (substring-no-properties (car y)))))
col-key-cns :initial-value 0)
col-desc-width (reduce (lambda (x y)
col-desc-width (cl-reduce (lambda (x y)
(max x (length (substring-no-properties (cdr y)))))
col-key-cns :initial-value 0)
col-width (+ 4 (length (substring-no-properties sep-w-face))