diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-10-18 15:45:14 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-10-18 17:54:35 +0200 |
commit | 9d4af29febb6b80806ee205f4afebd2fbecdef0f (patch) | |
tree | 7fb7f140250586aa45edd3c76276e4be85817603 | |
parent | 2c7ea57edefc4853575e9accbdf27f56c866d8e6 (diff) | |
download | org-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.el | 15 |
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 () |