mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 00:27:52 +00:00
fixup! Support completion boundaries when completing olp, tags, and agenda filter
Copy-paste typos.
This commit is contained in:
parent
5fa0f0c6fe
commit
13af0fd543
|
@ -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))))
|
||||
|
|
Loading…
Reference in a new issue