tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-pcomplete: Fix search string completion

Browse source 
* lisp/org-pcomplete.el (pcomplete/org-mode/tag): Use
  `org-get-heading'.
This commit is contained in:
Nicolas Goaziou 2018-10-18 15:47:56 +02:00
parent 961367bf6a
commit c25ac5ecd4
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/org-pcomplete.el
View file

@ -323,18 +323,18 @@ When completing for #+STARTUP, for example, this function returns
(defun pcomplete/org-mode/searchhead ()
"Complete against all headings.
This needs more work, to handle headings with lots of spaces in them."
(while
(pcomplete-here
(save-excursion
(goto-char (point-min))
(let (tbl)
(let ((case-fold-search nil))
(while (re-search-forward org-todo-line-regexp nil t)
(push (org-make-org-heading-search-string
(match-string-no-properties 3))
tbl)))
(pcomplete-uniquify-list tbl)))
(substring pcomplete-stub 1))))
(while (pcomplete-here
(save-excursion
(goto-char (point-min))
(let (tbl)
(while (re-search-forward org-outline-regexp nil t)
(push (org-make-org-heading-search-string
(org-get-heading t t t t))
tbl))
(pcomplete-uniquify-list tbl)))
;; When completing a bracketed link, i.e., "[[*", argument
;; starts at the star, so remove this character.
(substring pcomplete-stub 1))))
(defun pcomplete/org-mode/tag ()
"Complete a tag name. Omit tags already set."