diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-14 17:50:58 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-14 17:50:58 +0100 |
commit | 3f421f309f6bdd5536d8b0d2f63a23ac4cb66e2c (patch) | |
tree | f5833d94504b5a81fdb673d9d16d3511759498ba | |
parent | 131d70ab48a343d57c4bd56e7467751e72896089 (diff) | |
download | org-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.el | 3 | ||||
-rw-r--r-- | lisp/org.el | 4 |
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:")) |