summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-02-14 17:50:58 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2013-02-14 17:50:58 +0100
commit3f421f309f6bdd5536d8b0d2f63a23ac4cb66e2c (patch)
treef5833d94504b5a81fdb673d9d16d3511759498ba
parent131d70ab48a343d57c4bd56e7467751e72896089 (diff)
downloadorg-mode-3f421f309f6bdd5536d8b0d2f63a23ac4cb66e2c.tar.gz
Small fixes to completion
* lisp/org-pcomplete.el (pcomplete/org-mode/file-option): Allow completion for ATTR_ prefixed keywords. * lisp/org.el (org-options-keywords): Add missing colons.
-rw-r--r--lisp/org-pcomplete.el3
-rw-r--r--lisp/org.el4
2 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el
index 60e5c91..0ae41ae 100644
--- a/lisp/org-pcomplete.el
+++ b/lisp/org-pcomplete.el
@@ -155,7 +155,8 @@ When completing for #+STARTUP, for example, this function returns
(mapc (lambda (block-name)
(let ((name (car block-name)))
(push (format "END_%s: " name) block-names)
- (push (format "BEGIN_%s: " name) block-names)))
+ (push (format "BEGIN_%s: " name) block-names)
+ (push (format "ATTR_%s: " name) block-names)))
org-element-block-name-alist)
block-names)
(mapcar (lambda (keyword) (concat keyword ": "))
diff --git a/lisp/org.el b/lisp/org.el
index 9cd499a..ffecf98 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11563,9 +11563,9 @@ keywords relative to each registered export back-end."
keywords)))
(defconst org-options-keywords
- '("ARCHIVE:" "AUTHOR:" "BIND:" "CATEGORY:" "COLUMNS:" "CREATOR:" "DATE"
+ '("ARCHIVE:" "AUTHOR:" "BIND:" "CATEGORY:" "COLUMNS:" "CREATOR:" "DATE:"
"DESCRIPTION:" "DRAWERS:" "EMAIL:" "EXCLUDE_TAGS:" "FILETAGS:" "INCLUDE:"
- "INDEX:" "KEYWORDS:" "LANGUAGE:" "MACRO:" "OPTIONS:" "PROPERTY"
+ "INDEX:" "KEYWORDS:" "LANGUAGE:" "MACRO:" "OPTIONS:" "PROPERTY:"
"PRIORITIES:" "SELECT_TAGS:" "SEQ_TODO:" "SETUPFILE:" "STARTUP:" "TAGS:"
"TITLE:" "TODO:" "TYP_TODO:" "SELECT_TAGS:" "EXCLUDE_TAGS:" "INFOJS_OPT:"))