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

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

[elpa] externals/marginalia 4ac0f1f 096/241: rename variable


From: Stefan Monnier
Subject: [elpa] externals/marginalia 4ac0f1f 096/241: rename variable
Date: Fri, 28 May 2021 20:49:04 -0400 (EDT)

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

    rename variable
---
 marginalia.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index cef1819..0198522 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -262,7 +262,7 @@ WIDTH is the format width. This can be specified as 
alternative to FORMAT."
     (marginalia--fields
      (str :truncate marginalia-truncate-width :face 
'marginalia-documentation))))
 
-(defvar-local marginalia-annotate-binding--hash nil
+(defvar-local marginalia--annotate-binding-hash nil
   "Hash table storing the keybinding of every command.
 This hash table is needed to speed up `marginalia-annotate-binding'.")
 
@@ -273,13 +273,13 @@ This hash table is needed to speed up 
`marginalia-annotate-binding'.")
     ;; `where-is-internal'. `where-is-internal' generates a lot of garbage, 
leading to garbage
     ;; collecting pauses when interacting with the minibuffer. See
     ;; https://github.com/minad/marginalia/issues/16.
-    (unless marginalia-annotate-binding--hash
-      (setq marginalia-annotate-binding--hash (make-hash-table))
+    (unless marginalia--annotate-binding-hash
+      (setq marginalia--annotate-binding-hash (make-hash-table))
       (mapatoms (lambda (sym)
                   (when-let (key (and (commandp sym) (where-is-internal sym 
nil t)))
-                    (puthash sym key marginalia-annotate-binding--hash)))))
+                    (puthash sym key marginalia--annotate-binding-hash)))))
     (when-let* ((sym (intern-soft cand))
-                (binding (gethash sym marginalia-annotate-binding--hash)))
+                (binding (gethash sym marginalia--annotate-binding-hash)))
       (propertize (format " (%s)" (key-description binding)) 'face 
'marginalia-key))))
 
 ;; This annotator is consult-specific, it will annotate the `consult-buffer' 
command.



reply via email to

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