[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/which-key 1e1b7cb 1/2: Remove some obsolete variables/f
From: |
ELPA Syncer |
Subject: |
[elpa] externals/which-key 1e1b7cb 1/2: Remove some obsolete variables/functions |
Date: |
Sat, 10 Jul 2021 21:57:17 -0400 (EDT) |
branch: externals/which-key
commit 1e1b7cb6f0b17835876ce772e1bce9d43e7cafbb
Author: Justin Burkett <justin@burkett.cc>
Commit: Justin Burkett <justin@burkett.cc>
Remove some obsolete variables/functions
---
which-key.el | 29 -----------------------------
1 file changed, 29 deletions(-)
diff --git a/which-key.el b/which-key.el
index ff0db27..a493557 100644
--- a/which-key.el
+++ b/which-key.el
@@ -140,16 +140,6 @@ remapped given the currently active keymaps."
:group 'which-key
:type 'boolean)
-(defvar which-key-key-replacement-alist nil)
-(make-obsolete-variable 'which-key-key-replacement-alist
- 'which-key-replacement-alist "2016-11-21")
-(defvar which-key-description-replacement-alist nil)
-(make-obsolete-variable 'which-key-description-replacement-alist
- 'which-key-replacement-alist "2016-11-21")
-(defvar which-key-key-based-description-replacement-alist nil)
-(make-obsolete-variable 'which-key-key-based-description-replacement-alist
- 'which-key-replacement-alist "2016-11-21")
-
(defcustom which-key-replacement-alist
(delq nil
`(((nil . "which-key-show-next-page-no-cycle") . (nil . "wk next pg"))
@@ -666,9 +656,6 @@ update.")
"select-window" "switch-frame" "-state"
"which-key"))))
-(make-obsolete-variable 'which-key-prefix-name-alist nil "2016-10-05")
-(make-obsolete-variable 'which-key-prefix-title-alist nil "2016-10-05")
-
(defvar which-key--pages-obj nil)
(cl-defstruct which-key--pages
pages
@@ -1008,22 +995,6 @@ addition KEY-SEQUENCE REPLACEMENT pairs) to apply."
(put 'which-key-add-major-mode-key-based-replacements
'lisp-indent-function 'defun)
-(defalias 'which-key-add-prefix-title 'which-key-add-key-based-replacements)
-(make-obsolete 'which-key-add-prefix-title
- 'which-key-add-key-based-replacements
- "2016-10-05")
-
-(defalias 'which-key-declare-prefixes 'which-key-add-key-based-replacements)
-(make-obsolete 'which-key-declare-prefixes
- 'which-key-add-key-based-replacements
- "2016-10-05")
-
-(defalias 'which-key-declare-prefixes-for-mode
- 'which-key-add-major-mode-key-based-replacements)
-(make-obsolete 'which-key-declare-prefixes-for-mode
- 'which-key-add-major-mode-key-based-replacements
- "2016-10-05")
-
(defun which-key-define-key-recursively (map key def &optional at-root)
"Recursively bind KEY in MAP to DEF on every level of MAP except the first.
If AT-ROOT is non-nil the binding is also placed at the root of MAP."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/which-key 1e1b7cb 1/2: Remove some obsolete variables/functions,
ELPA Syncer <=