[elpa] externals/marginalia 17d539c 059/241: whitespace and comment adjustments

[Stefan Monnier]

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

    whitespace and comment adjustments
---
 marginalia.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 7c7c42b..49afb04 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -319,7 +319,6 @@ This hash table is needed to speed up 
`marginalia-annotate-command-binding'.")
        (if (buffer-modified-p buffer) "*" " ")
        (if (buffer-local-value 'buffer-read-only buffer) "%" " ")))
      ((buffer-local-value 'major-mode buffer) :width 30 :face 'marginalia-mode)
-
      ((if-let (file (buffer-file-name buffer))
           (abbreviate-file-name file) "")
       :truncate marginalia-file-name-width
@@ -407,13 +406,13 @@ METADATA is the metadata.
 PROP is the property which is looked up."
   (pcase prop
     ('annotation-function
+     ;; we do want the advice triggered for completion-metadata-get
      (when-let (cat (completion-metadata-get metadata 'category))
-       ;; we do want the advice triggered for completion-metadata-get
        (alist-get cat (symbol-value (car marginalia-annotators)))))
     ('category
+     ;; using alist-get bypasses any advice on completion-metadata-get
+     ;; to avoid infinite recursion
      (let ((marginalia--original-category (alist-get 'category metadata)))
-       ;; using alist-get in the line above bypasses any advice on
-       ;; completion-metadata-get to avoid infinite recursion
        (run-hook-with-args-until-success 'marginalia-classifiers)))))
 
 (defun marginalia--minibuffer-setup ()