org-pcomplete: Fix completion for block boundaries
authorNicolas Goaziou <n.goaziou@gmail.com>
Mon, 15 Jul 2013 15:42:13 +0000 (17:42 +0200)
committerNicolas Goaziou <n.goaziou@gmail.com>
Mon, 15 Jul 2013 15:42:13 +0000 (17:42 +0200)
* lisp/org-pcomplete.el (pcomplete/org-mode/file-option): Remove
  spurious colons from block boundaries.

lisp/org-pcomplete.el

index 43b5f46..402fa48 100644 (file)
@@ -155,8 +155,8 @@ When completing for #+STARTUP, for example, this function returns
            (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 "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)