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

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

[elpa] externals/which-key 55fcce0: Remove more instances of obsolete va


From: ELPA Syncer
Subject: [elpa] externals/which-key 55fcce0: Remove more instances of obsolete variables.
Date: Mon, 12 Jul 2021 14:57:20 -0400 (EDT)

branch: externals/which-key
commit 55fcce0c6143044535bc6825a68f42ca83f58f00
Author: Justin Burkett <justin@burkett.cc>
Commit: Justin Burkett <justin@burkett.cc>

    Remove more instances of obsolete variables.
---
 which-key.el | 19 +------------------
 1 file changed, 1 insertion(+), 18 deletions(-)

diff --git a/which-key.el b/which-key.el
index a493557..0fdcb7a 100644
--- a/which-key.el
+++ b/which-key.el
@@ -185,19 +185,6 @@ non-nil value."
                 :value-type (cons (choice string (const nil))
                                   (choice string (const nil)))))
 
-(when (bound-and-true-p which-key-key-replacement-alist)
-  (mapc
-   (lambda (repl)
-     (push (cons (cons (car repl) nil) (cons (cdr repl) nil))
-           which-key-replacement-alist))
-   which-key-key-replacement-alist))
-(when (bound-and-true-p which-key-description-replacement-alist)
-  (mapc
-   (lambda (repl)
-     (push (cons (cons nil (car repl)) (cons nil (cdr repl)))
-           which-key-replacement-alist))
-   which-key-description-replacement-alist))
-
 (defcustom which-key-allow-multiple-replacements nil
   "Allow a key binding to match and be modified by multiple
 elements in `which-key-replacement-alist' if non-nil. When nil,
@@ -843,11 +830,7 @@ function, but it's included here in case someone cannot 
set that
 variable early enough in their configuration, if they are using a
 starter kit for example."
   (when (string-equal which-key-separator " → ")
-    (setq which-key-separator " : "))
-  (setq which-key-key-replacement-alist
-        (delete '("left" . "←") which-key-key-replacement-alist))
-  (setq which-key-key-replacement-alist
-        (delete '("right" . "→") which-key-key-replacement-alist)))
+    (setq which-key-separator " : ")))
 
 ;;; Default configuration functions for use by users.
 



reply via email to

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