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) (concat string (substring r 0 (match-end 0)) f)
x))) x)))
(all-completions string thetable predicate)))) (all-completions string thetable predicate))))
((eq (car-safe action) 'boundaries) ((eq (car-safe flag) 'boundaries)
;; See `completion-file-name-table'. ;; See `completion-file-name-table'.
(let ((start (or (and (string-match "/" string) (let ((start (or (and (string-match "/" string)
(match-beginning 0 string)) (match-beginning 0))
(length string))) (length string)))
(end (and (string-match "/" (cdr action)) (end (and (string-match "/" (cdr flag))
(match-beginning 0 (cdr action))))) (match-beginning 0))))
`(boundaries ,start . ,end))) `(boundaries ,start . ,end)))
;; Exact match? ;; Exact match?
((eq flag 'lambda) (assoc string thetable)))) ((eq flag 'lambda) (assoc string thetable))))