From 13af0fd5439706f654d74b783226ed75364b5902 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sat, 23 Mar 2024 08:58:10 +0300 Subject: [PATCH] fixup! Support completion boundaries when completing olp, tags, and agenda filter Copy-paste typos. --- lisp/org-refile.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-refile.el b/lisp/org-refile.el index a9eebb6fb..18a9c4ac5 100644 --- a/lisp/org-refile.el +++ b/lisp/org-refile.el @@ -775,13 +775,13 @@ this function appends the default value from (concat string (substring r 0 (match-end 0)) f) x))) (all-completions string thetable predicate)))) - ((eq (car-safe action) 'boundaries) + ((eq (car-safe flag) 'boundaries) ;; See `completion-file-name-table'. (let ((start (or (and (string-match "/" string) - (match-beginning 0 string)) + (match-beginning 0)) (length string))) - (end (and (string-match "/" (cdr action)) - (match-beginning 0 (cdr action))))) + (end (and (string-match "/" (cdr flag)) + (match-beginning 0)))) `(boundaries ,start . ,end))) ;; Exact match? ((eq flag 'lambda) (assoc string thetable))))