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

Put spaces in separator so they can be changed

Browse source
This commit is contained in:
justbur 2015-07-20 16:02:30 -04:00
parent 765136acaf
commit ee782ebfc5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
which-key.el
View file

@ -57,7 +57,7 @@ Also adds \"..\"."
:group 'which-key
:type 'integer)
(defcustom which-key-separator "→"
(defcustom which-key-separator " → "
"Separator to use between key and description."
:group 'which-key
:type 'string)
@ -830,12 +830,12 @@ element in each list element of KEYS."
(let* ((col-key-width (which-key--max-len col-keys 0))
(col-sep-width (which-key--max-len col-keys 1))
(col-desc-width (which-key--max-len col-keys 2))
(col-width (+ 3 col-key-width col-sep-width col-desc-width)))
(col-width (+ 1 col-key-width col-sep-width col-desc-width)))
(cons col-width
(mapcar (lambda (k)
(concat
(s-repeat (- col-key-width (string-width (nth 0 k))) " ")
(nth 0 k) " " (nth 1 k) " " (nth 2 k)
(nth 0 k) (nth 1 k) (nth 2 k)
(s-repeat (- col-desc-width (string-width (nth 2 k))) " ")))
col-keys))))