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

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

[elpa] externals/marginalia fa48dbe318 05/15: Remove unnecessary concat


From: ELPA Syncer
Subject: [elpa] externals/marginalia fa48dbe318 05/15: Remove unnecessary concat
Date: Sun, 9 Jan 2022 15:57:53 -0500 (EST)

branch: externals/marginalia
commit fa48dbe31813ed8bced381edfdd1d160b6b5ae53
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Remove unnecessary concat
---
 marginalia.el | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index b9c308e879..00ec75a2ef 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -660,15 +660,14 @@ keybinding since CAND includes it."
                  (lookup-minor-mode-from-indicator cand)))
          (lighter (cdr (assq mode minor-mode-alist)))
          (lighter-str (and lighter (string-trim (format-mode-line (cons t 
lighter))))))
-    (concat
-     (marginalia--fields
-      ((if (and (boundp mode) (symbol-value mode))
-           (propertize "On" 'face 'marginalia-on)
-         (propertize "Off" 'face 'marginalia-off)) :width 3)
-      ((if (local-variable-if-set-p mode) "Local" "Global") :width 6 :face 
'marginalia-type)
-      (lighter-str :width 20 :face 'marginalia-lighter)
-      ((marginalia--function-doc mode)
-       :truncate marginalia-truncate-width :face 'marginalia-documentation)))))
+    (marginalia--fields
+     ((if (and (boundp mode) (symbol-value mode))
+          (propertize "On" 'face 'marginalia-on)
+        (propertize "Off" 'face 'marginalia-off)) :width 3)
+     ((if (local-variable-if-set-p mode) "Local" "Global") :width 6 :face 
'marginalia-type)
+     (lighter-str :width 20 :face 'marginalia-lighter)
+     ((marginalia--function-doc mode)
+      :truncate marginalia-truncate-width :face 'marginalia-documentation))))
 
 (defun marginalia-annotate-package (cand)
   "Annotate package CAND with its description summary."



reply via email to

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