Skip to content

Commit

Permalink
Only 1 space seems enough in *M-x and *apropos transformers
Browse files Browse the repository at this point in the history
  • Loading branch information
@thierryvolpiatto
thierryvolpiatto committed Jun 17, 2022
1 parent 0cc7a7c commit b36b285
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
6 changes: 3 additions & 3 deletions helm-command.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -158,19 +158,19 @@ algorithm."
(cons (cond ((and (string-match "^M-x" key) local-key)
(format "%s%s%s %s"
disp
(if doc (make-string (+ 4 (- max-len (length cand))) ? ) "")
(if doc (make-string (+ 1 (- max-len (length cand))) ? ) "")
(if doc (propertize doc 'face 'helm-M-x-short-doc) "")
(propertize
" " 'display
(propertize local-key 'face 'helm-M-x-key))))
((string-match "^M-x" key)
(format "%s%s%s"
disp
(if doc (make-string (+ 4 (- max-len (length cand))) ? ) "")
(if doc (make-string (+ 1 (- max-len (length cand))) ? ) "")
(if doc (propertize doc 'face 'helm-M-x-short-doc) "")))
(t (format "%s%s%s %s"
disp
(if doc (make-string (+ 4 (- max-len (length cand))) ? ) "")
(if doc (make-string (+ 1 (- max-len (length cand))) ? ) "")
(if doc (propertize doc 'face 'helm-M-x-short-doc) "")
(propertize
" " 'display
Expand Down
2 changes: 1 addition & 1 deletion helm-elisp.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -530,7 +530,7 @@ is only used to test DEFAULT."
collect (cons (format "%s%s%s"
cand
(if doc
(make-string (+ 4 (if (zerop max-len)
(make-string (+ 1 (if (zerop max-len)
max-len
(- max-len (string-width cand))))
? )
Expand Down

0 comments on commit b36b285

Please sign in to comment.