[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 555c5c1 13/21: Demote errors in which-key--process-define-
From: |
Justin Burkett |
Subject: |
[elpa] master 555c5c1 13/21: Demote errors in which-key--process-define-key-args |
Date: |
Mon, 8 Jan 2018 22:46:56 -0500 (EST) |
branch: master
commit 555c5c1da8942b24d457578d0fc23564de07fb17
Author: Justin Burkett <address@hidden>
Commit: Justin Burkett <address@hidden>
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))
- [elpa] master updated (a86cf29 -> 56b0fc8), Justin Burkett, 2018/01/08
- [elpa] master 917d2ba 03/21: Improve echo area note for which-key-show-major-mode, Justin Burkett, 2018/01/08
- [elpa] master 70d63a8 02/21: Add which-key-show-major-mode, Justin Burkett, 2018/01/08
- [elpa] master 6d2e17c 01/21: Update which-key version for GNU ELPA, Justin Burkett, 2018/01/08
- [elpa] master 6e8df96 04/21: Consolidate use of binding filters, Justin Burkett, 2018/01/08
- [elpa] master 2934852 05/21: Mention which-key-show-major-mode in README, Justin Burkett, 2018/01/08
- [elpa] master 78a2943 08/21: Fix ordering of default replacement-alist, Justin Burkett, 2018/01/08
- [elpa] master 159f0f9 07/21: Add notes about paging commands not working with minibuffer, Justin Burkett, 2018/01/08
- [elpa] master f516b84 09/21: Add which-key-enable-extended-define-key customization option, Justin Burkett, 2018/01/08
- [elpa] master 3ff8f48 10/21: Allow null DEF in which-key--process-define-key-args, Justin Burkett, 2018/01/08
- [elpa] master 555c5c1 13/21: Demote errors in which-key--process-define-key-args,
Justin Burkett <=
- [elpa] master 0a212c7 11/21: Fix travis build, Justin Burkett, 2018/01/08
- [elpa] master c7e5f76 18/21: Merge pull request #183 from tarsiiformes/silencio, Justin Burkett, 2018/01/08
- [elpa] master 6247cb5 16/21: Simplify implementation of define-key based replacements, Justin Burkett, 2018/01/08
- [elpa] master 1694c6d 15/21: Improve which-key--process-define-key-args, Justin Burkett, 2018/01/08
- [elpa] master b6d04b3 12/21: Fix .travis.yml, Justin Burkett, 2018/01/08
- [elpa] master 7150aa9 14/21: Announce which-key-enable-extended-define-key in README, Justin Burkett, 2018/01/08
- [elpa] master 7559a79 20/21: Version 3.1.0, Justin Burkett, 2018/01/08
- [elpa] master ef384e7 19/21: Fix and improve define-key based replacements, Justin Burkett, 2018/01/08
- [elpa] master cd8d24d 17/21: Define which-key--current-key-list before using it, Justin Burkett, 2018/01/08
- [elpa] master 1234342 06/21: Re-indent README, Justin Burkett, 2018/01/08