From 982ec0b0c15c5b01bb7bef7c45f142fcc32ab550 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 4 Feb 2023 19:33:56 +0100 Subject: [PATCH] Clarify error message regarding key configuration --- consult.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/consult.el b/consult.el index b93b4f15..bc3e830a 100644 --- a/consult.el +++ b/consult.el @@ -1485,7 +1485,7 @@ The result can be passed as :state argument to `consult--read'." type) (if (key-valid-p key) (setq key (key-parse key)) ;; TODO: Remove compatibility code, throw error. - (message "Invalid preview key: %S" key))) + (message "Invalid preview key according to `key-valid-p': %S" key))) (push (cons key debounce) keys)) (pop preview-key))) keys)) @@ -1685,14 +1685,14 @@ The default is twice the `consult-narrow-key'." (if (key-valid-p consult-widen-key) (key-parse consult-widen-key) ;; TODO: Remove compatibility code, throw error. - (message "Invalid `consult-widen-key': %S" consult-widen-key) + (message "Invalid `consult-widen-key' according to `key-valid-p': %S" consult-widen-key) consult-widen-key)) (consult-narrow-key (let ((key consult-narrow-key)) (if (key-valid-p key) (setq key (key-parse key)) ;; TODO: Remove compatibility code, throw error. - (message "Invalid `consult-narrow-key': %S" key)) + (message "Invalid `consult-narrow-key' according to `key-valid-p': %S" key)) (vconcat key key))))) (defun consult-narrow (key) @@ -1769,7 +1769,7 @@ to make it available for commands with narrowing." (if (key-valid-p key) (setq key (key-parse key)) ;; TODO: Remove compatibility code, throw error. - (message "Invalid `consult-narrow-key': %S" key)) + (message "Invalid `consult-narrow-key' according to `key-valid-p': %S" key)) (dolist (pair consult--narrow-keys) (define-key map (vconcat key (vector (car pair))) (cons (cdr pair) #'consult-narrow))))