branch: master
commit 555c5c1da8942b24d457578d0fc23564de07fb17
Author: Justin Burkett <jus...@burkett.cc>
Commit: Justin Burkett <jus...@burkett.cc>
Demote errors in which-key--process-define-key-args
---
which-key.el | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/which-key.el b/which-key.el
index 15b599a..fdef15b 100644
--- a/which-key.el
+++ b/which-key.el
@@ -913,15 +913,16 @@ If AT-ROOT is non-nil the binding is also placed at the
root of MAP."
to `which-key-replacement-alist' so that this binding is replaced
in which-key with DESCRIPTION. This function is meant to be used
as :before advice for `define-key'."
- (when (and (consp def)
- (stringp (car def))
- (symbolp (cdr def)))
- (let ((key-desc (regexp-quote (key-description key))))
- (push (cons (cons (format "%s\\'" key-desc)
- (when (cdr def)
- (format "\\`%s\\'" (symbol-name (cdr def)))))
- (cons nil (car def)))
- which-key-replacement-alist))))
+ (with-demoted-errors "Which-key extended define-key error: %s"
+ (when (and (consp def)
+ (stringp (car def))
+ (symbolp (cdr def)))
+ (let ((key-desc (regexp-quote (key-description key))))
+ (push (cons (cons (format "%s\\'" key-desc)
+ (when (cdr def)
+ (format "\\`%s\\'" (symbol-name (cdr def)))))
+ (cons nil (car def)))
+ which-key-replacement-alist)))))
(when which-key-enable-extended-define-key
(advice-add #'define-key :before #'which-key--process-define-key-args))
