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

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

[elpa] externals/which-key fe68fe2812 06/11: Avoid unnecessary work


From: ELPA Syncer
Subject: [elpa] externals/which-key fe68fe2812 06/11: Avoid unnecessary work
Date: Thu, 11 Aug 2022 12:58:12 -0400 (EDT)

branch: externals/which-key
commit fe68fe28126efa44a1050a2eedfc719c23054db1
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Avoid unnecessary work
---
 which-key.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/which-key.el b/which-key.el
index ba446a5673..529cceb40a 100644
--- a/which-key.el
+++ b/which-key.el
@@ -1589,12 +1589,12 @@ If KEY contains any \"special keys\" defined in
 
 (defsubst which-key--truncate-description (desc)
   "Truncate DESC description to `which-key-max-description-length'."
-  (let* ((last-face (get-text-property (1- (length desc)) 'face desc))
-         (dots (which-key--propertize which-key-ellipsis 'face last-face)))
-    (if (and which-key-max-description-length
-             (> (length desc) which-key-max-description-length))
-        (concat (substring desc 0 which-key-max-description-length) dots)
-      desc)))
+  (if (and which-key-max-description-length
+           (> (length desc) which-key-max-description-length))
+      (let* ((last-face (get-text-property (1- (length desc)) 'face desc))
+             (dots (which-key--propertize which-key-ellipsis 'face last-face)))
+        (concat (substring desc 0 which-key-max-description-length) dots))
+    desc))
 
 (defun which-key--highlight-face (description)
   "Return the highlight face for DESCRIPTION if it has one."



reply via email to

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