diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-02 08:08:58 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-02 08:08:58 +0200 |
| commit | 36bd97865917a878e36409c47109ff3825cee823 (patch) | |
| tree | 1acf551a9808f72a488ea56e14c0b3de3095d706 | |
| parent | a6986494a0c4fc5d3363c2bebe48215e7138e4f1 (diff) | |
| download | org-mode-36bd97865917a878e36409c47109ff3825cee823.tar.gz | |
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'.
| -rw-r--r-- | lisp/org-pcomplete.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el index 4e8ba0e..77f68f4 100644 --- a/lisp/org-pcomplete.el +++ b/lisp/org-pcomplete.el @@ -36,7 +36,7 @@ (declare-function org-split-string "org" (string &optional separators)) (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-tags "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) (while (re-search-forward org-todo-line-regexp nil t) (push (org-make-org-heading-search-string - (match-string-no-properties 3) t) + (match-string-no-properties 3)) tbl)) (pcomplete-uniqify-list tbl))) (substring pcomplete-stub 1)))) |