tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-pcomplete: Remove spurious white spaces in block completion

Browse source 
* lisp/org-pcomplete.el (pcomplete/org-mode/file-option): Remove
  spurious white spaces, excepted for source blocks' opening string.
  Small refactoring.
This commit is contained in:
Nicolas Goaziou 2013-07-18 15:54:15 +02:00
parent 1af5a8a7c8
commit 40b44e4505
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/org-pcomplete.el
View file

@ -153,13 +153,16 @@ When completing for #+STARTUP, for example, this function returns
(mapcar (lambda (keyword) (concat keyword ": "))
org-element-affiliated-keywords)
(let (block-names)
(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 "ATTR_%s: " name) block-names)))
org-element-block-name-alist)
block-names)
(dolist (block-info org-element-block-name-alist block-names)
(let ((name (car block-info)))
(push (format "END_%s" name) block-names)
(push (concat "BEGIN_"
name
;; Since language is compulsory in
;; source blocks, add a space.
(and (equal name "SRC") " "))
block-names)
(push (format "ATTR_%s: " name) block-names))))
(mapcar (lambda (keyword) (concat keyword ": "))
(org-get-export-keywords))))
(substring pcomplete-stub 2)))