mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-14 16:51:15 +00:00
Code

Small fixes to completion

Browse Source 
* lisp/org-pcomplete.el (pcomplete/org-mode/file-option): Allow
  completion for ATTR_ prefixed keywords.
* lisp/org.el (org-options-keywords): Add missing colons.
This commit is contained in:
Nicolas Goaziou 2013-02-14 17:50:58 +01:00
parent 131d70ab48
commit 3f421f309f
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-pcomplete.el
View File

@ -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 ": "))

4
lisp/org.el
View File

@ -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:"))