[elpa] externals/marginalia 783cb49 067/241: improve marginalia-minor-mode

[Stefan Monnier]

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

    improve marginalia-minor-mode
    
    * try less expensive check first
    * adjust lighter width
---
 marginalia.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 20f5883..5457914 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -307,11 +307,12 @@ This hash table is needed to speed up 
`marginalia-annotate-command-binding'.")
 
 (defun marginalia-annotate-minor-mode (cand)
   "Annotate minor-mode CAND with status and documentation string."
-  (let* ((ind
-          (with-selected-window
-              (or (minibuffer-selected-window) (selected-window))
-            (lookup-minor-mode-from-indicator cand)))
-         (mode (or ind (intern cand)))
+  (let* ((sym (intern-soft cand))
+         (mode (if (and sym (boundp sym))
+                   sym
+                 (with-selected-window
+                     (or (minibuffer-selected-window) (selected-window))
+                   (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
@@ -319,7 +320,7 @@ This hash table is needed to speed up 
`marginalia-annotate-command-binding'.")
       ((if (and (boundp mode) (symbol-value mode))
            (propertize "On" 'face 'marginalia-on)
          (propertize "Off" 'face 'marginalia-off)) :width 3)
-      ((or lighter-str "") :width 10 :face 'marginalia-lighter)
+      ((or lighter-str "") :width 14 :face 'marginalia-lighter)
       ((or (ignore-errors (documentation mode)) "")
        :truncate marginalia-truncate-width
        :face 'marginalia-documentation)))))