Browse Source

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 <millarc@verizon.net>
<http://permalink.gmane.org/gmane.emacs.orgmode/111779>
Nicolas Goaziou 2 years ago
parent
commit
426bce6a83
1 changed files with 4 additions and 4 deletions
  1. 4 4
      lisp/org-capture.el

+ 4 - 4
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))))))