ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix problem with completing #+STARTUP

This commit is contained in:
Carsten Dominik 2009-08-10 14:09:04 +02:00
parent bd8e816ea0
commit bd8e4e248a
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org.el
View File

@ -9056,11 +9056,14 @@ At all other locations, this simply calls the value of
(setq type :opt) (setq type :opt)
(require 'org-exp) (require 'org-exp)
(append (append
(delq nil
(mapcar (mapcar
(lambda (x) (lambda (x)
(string-match "^#\\+\\(\\([A-Z_]+:?\\).*\\)" x) (if (string-match
(cons (match-string 2 x) (match-string 1 x))) "^#\\+\\(\\([A-Z_]+:?\\).*\\)" x)
(org-split-string (org-get-current-options) "\n")) (cons (match-string 2 x)
(match-string 1 x))))
(org-split-string (org-get-current-options) "\n")))
(mapcar 'list org-additional-option-like-keywords))) (mapcar 'list org-additional-option-like-keywords)))
(startup (startup
(setq type :startup) (setq type :startup)