From ee782ebfc52e5cae5b397473732cefcea3c5d8a8 Mon Sep 17 00:00:00 2001 From: justbur Date: Mon, 20 Jul 2015 16:02:30 -0400 Subject: [PATCH] Put spaces in separator so they can be changed --- which-key.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/which-key.el b/which-key.el index c9b7aacdbaa..05552b3315e 100644 --- a/which-key.el +++ b/which-key.el @@ -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))))