mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 21:37:50 +00:00
org-pcomplete: Remove spurious white spaces in block completion
* 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:
parent
1af5a8a7c8
commit
40b44e4505
|
@ -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)))
|
||||
|
|
Loading…
Reference in a new issue