diff options
author | Bastien Guerry <bastien1@free.fr> | 2012-04-11 12:59:50 +0200 |
---|---|---|
committer | Bastien Guerry <bastien1@free.fr> | 2012-04-11 12:59:50 +0200 |
commit | 801a68c874777439a2eb06247891e1d1082c59c7 (patch) | |
tree | 31f5293a178e782eb418333361243dce84d8258d /lisp/org/org-pcomplete.el | |
parent | e645df7cc3c71a1d22c62297cec1199e586fc7b9 (diff) | |
download | emacs-801a68c874777439a2eb06247891e1d1082c59c7.tar.gz |
Sync with Org 7.8.09 (bugfix release)
Diffstat (limited to 'lisp/org/org-pcomplete.el')
-rw-r--r-- | lisp/org/org-pcomplete.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org/org-pcomplete.el b/lisp/org/org-pcomplete.el index 0ca8777878c..5950d8e26da 100644 --- a/lisp/org/org-pcomplete.el +++ b/lisp/org/org-pcomplete.el @@ -69,7 +69,7 @@ The return value is a string naming the thing at point." (re-search-backward "^[ \t]*#\\+\\([A-Z_]+\\):.*" (line-beginning-position) t)) (cons "file-option" (match-string-no-properties 1))) - ((string-match "\\`[ \t]*#\\+[a-zA-Z]*\\'" line-to-here) + ((string-match "\\`[ \t]*#\\+[a-zA-Z_]*\\'" line-to-here) (cons "file-option" nil)) ((equal (char-before beg) ?\[) (cons "link" nil)) @@ -144,7 +144,7 @@ When completing for #+STARTUP, for example, this function returns (if (string-match "^#\\+\\([A-Z_]+:?\\)" x) (match-string 1 x))) (org-split-string (org-get-current-options) "\n")) - org-additional-option-like-keywords))))) + (copy-sequence org-additional-option-like-keywords)))))) (substring pcomplete-stub 2))) (defvar org-startup-options) |