mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

fixup! Support completion boundaries when completing olp, tags, and agenda filter 

Copy-paste typos.
This commit is contained in:
Ihor Radchenko 2024-03-23 08:58:10 +03:00
parent 5fa0f0c6fe
commit 13af0fd543
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-refile.el
View File

@ -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))))