mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:37:50 +00:00
Code Releases Activity

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

Browse source 
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))))