[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 42aeba747a 4/5: Fix helm-M-x transformer
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 42aeba747a 4/5: Fix helm-M-x transformer |
Date: |
Wed, 15 Jun 2022 09:05:08 -0400 (EDT) |
branch: elpa/helm
commit 42aeba747a45535f7040ea6c79890e2bea221e36
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Fix helm-M-x transformer
---
helm-command.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/helm-command.el b/helm-command.el
index 800f1fca22..ef0c0643b6 100644
--- a/helm-command.el
+++ b/helm-command.el
@@ -139,7 +139,7 @@ algorithm."
(with-helm-current-buffer
(cl-loop with max-len = (when helm-M-x-show-short-doc
(buffer-local-value
'helm-candidate-buffer-longest-len
- (helm-candidate-buffer)))
+ (get-buffer
(helm-candidate-buffer))))
with local-map = (helm-M-x-current-mode-map-alist)
for cand in candidates
for local-key = (car (rassq cand local-map))
@@ -158,7 +158,7 @@ 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 (+ 4 (- max-len (length
cand))) ? ) "")
(if doc (propertize doc 'face
'helm-M-x-short-doc) "")
(propertize
" " 'display
@@ -166,11 +166,11 @@ algorithm."
((string-match "^M-x" key)
(format "%s%s%s"
disp
- (if doc (make-string (+ 4 (- max-len (+
(length cand)))) ? ) "")
+ (if doc (make-string (+ 4 (- 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 (+ 4 (- max-len
(length cand))) ? ) "")
(if doc (propertize doc 'face
'helm-M-x-short-doc) "")
(propertize
" " 'display