forked from mirrors/org-mode
Fix completion of headline names after *
* lisp/org-pcomplete.el (org-make-org-heading-search-string): Fix function declaration. (pcomplete/org-mode/searchhead): Remove incorrect second arguments to `org-make-org-heading-search-string'.
This commit is contained in:
parent
a6986494a0
commit
36bd978659
|
@ -36,7 +36,7 @@
|
||||||
|
|
||||||
(declare-function org-split-string "org" (string &optional separators))
|
(declare-function org-split-string "org" (string &optional separators))
|
||||||
(declare-function org-make-org-heading-search-string "org"
|
(declare-function org-make-org-heading-search-string "org"
|
||||||
(&optional string heading))
|
(&optional string))
|
||||||
(declare-function org-get-buffer-tags "org" ())
|
(declare-function org-get-buffer-tags "org" ())
|
||||||
(declare-function org-get-tags "org" ())
|
(declare-function org-get-tags "org" ())
|
||||||
(declare-function org-buffer-property-keys "org"
|
(declare-function org-buffer-property-keys "org"
|
||||||
|
@ -326,7 +326,7 @@ This needs more work, to handle headings with lots of spaces in them."
|
||||||
(let (tbl)
|
(let (tbl)
|
||||||
(while (re-search-forward org-todo-line-regexp nil t)
|
(while (re-search-forward org-todo-line-regexp nil t)
|
||||||
(push (org-make-org-heading-search-string
|
(push (org-make-org-heading-search-string
|
||||||
(match-string-no-properties 3) t)
|
(match-string-no-properties 3))
|
||||||
tbl))
|
tbl))
|
||||||
(pcomplete-uniqify-list tbl)))
|
(pcomplete-uniqify-list tbl)))
|
||||||
(substring pcomplete-stub 1))))
|
(substring pcomplete-stub 1))))
|
||||||
|
|
Loading…
Reference in a new issue