emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm a84c4fd9e5 2/8: Use helm-make-separator in helm-aprop


From: ELPA Syncer
Subject: [nongnu] elpa/helm a84c4fd9e5 2/8: Use helm-make-separator in helm-apropos-short-doc-transformer
Date: Fri, 8 Mar 2024 07:00:22 -0500 (EST)

branch: elpa/helm
commit a84c4fd9e592e8855d8ded3ec30c807df4dbe3bc
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Use helm-make-separator in helm-apropos-short-doc-transformer
---
 helm-elisp.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 19223ab9df..1107330c74 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -524,18 +524,17 @@ is only used to test DEFAULT."
 
 (defun helm-apropos-short-doc-transformer (candidates _source)
   (if helm-apropos-show-short-doc
-      (cl-loop with max-len = (helm-in-buffer-get-longest-candidate)
-               for cand in candidates
+      (cl-loop for cand in candidates
                for doc = (helm-get-first-line-documentation (intern-soft cand))
                collect (cons (format "%s%s%s"
                                      cand
                                      (if doc
-                                         (make-string (+ 1 (if (zerop max-len)
-                                                               max-len
-                                                             (- max-len 
(string-width cand))))
-                                                      ? )
+                                         (helm-make-separator cand)
                                        "")
-                                     (if doc (propertize doc 'face 
'helm-M-x-short-doc) ""))
+                                     (if doc
+                                         (propertize
+                                          doc 'face 'helm-M-x-short-doc)
+                                       ""))
                              cand))
     candidates))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]