mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 04:27:48 +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)
|
(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))))
|
||||||
|
|
Loading…
Reference in a new issue