From 426bce6a8343d886b8fadeeb2cda86abd53bf37a Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 31 Jan 2017 22:50:09 +0100 Subject: [PATCH] org-capture: Small fix * lisp/org-capture.el (org-mks): Find entries with full prefix, not last pressed key. This fixes a bug introduced in 8194e7b09. Reported-by: Charles Millar --- lisp/org-capture.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 416b736ce..ae5ee50c9 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -1509,17 +1509,17 @@ is selected, only the bare key is returned." (message "Invalid key `%s'" pressed) (sit-for 1) (message prompt) (setq pressed (char-to-string (read-char-exclusive)))) + (setq current (concat current pressed)) (cond ((equal pressed "\C-g") (user-error "Abort")) ;; Selection is a prefix: open a new menu. - ((member pressed des-keys) - (setq current (concat current pressed))) + ((member pressed des-keys)) ;; Selection matches an association: return it. - ((let ((entry (assoc pressed table))) + ((let ((entry (assoc current table))) (and entry (throw 'exit entry)))) ;; Selection matches a special entry: return the ;; selection prefix. - ((assoc pressed specials) (throw 'exit pressed)) + ((assoc current specials) (throw 'exit current)) (t (error "No entry available"))))))) (when buffer (kill-buffer buffer))))))