summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2018-10-18 15:45:14 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-10-18 17:54:35 +0200
commit9d4af29febb6b80806ee205f4afebd2fbecdef0f (patch)
tree7fb7f140250586aa45edd3c76276e4be85817603
parent2c7ea57edefc4853575e9accbdf27f56c866d8e6 (diff)
downloadorg-mode-9d4af29febb6b80806ee205f4afebd2fbecdef0f.tar.gz
org-pcomplete: Complete lower case node properties
* lisp/org-pcomplete.el (pcomplete/org-mode/block-option/src): Complete lower case node properties.
-rw-r--r--lisp/org-pcomplete.el15
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el
index 6ac5bdc..a258994 100644
--- a/lisp/org-pcomplete.el
+++ b/lisp/org-pcomplete.el
@@ -354,13 +354,14 @@ This needs more work, to handle headings with lots of spaces in them."
(defun pcomplete/org-mode/prop ()
"Complete a property name. Omit properties already set."
(pcomplete-here
- (mapcar (lambda (x)
- (concat x ": "))
- (let ((lst (pcomplete-uniquify-list
- (copy-sequence (org-buffer-property-keys nil t t)))))
- (dolist (prop (org-entry-properties))
- (setq lst (delete (car prop) lst)))
- lst))
+ (org-pcomplete-case-double
+ (mapcar (lambda (x)
+ (concat x ": "))
+ (let ((lst (pcomplete-uniquify-list
+ (copy-sequence (org-buffer-property-keys nil t t)))))
+ (dolist (prop (org-entry-properties))
+ (setq lst (delete (car prop) lst)))
+ lst)))
(substring pcomplete-stub 1)))
(defun pcomplete/org-mode/block-option/src ()