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

Postfix for the previous patch

This commit is contained in:
Carsten Dominik 2010-03-11 15:04:49 +01:00
parent 30e3503b7b
commit b4f23faff4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -12986,7 +12986,7 @@ in the current file."
(interactive (interactive
(let* ((completion-ignore-case t) (let* ((completion-ignore-case t)
(keys (org-buffer-property-keys nil t t)) (keys (org-buffer-property-keys nil t t))
(prop0 (or (progn (org-at-property-p) (org-match-string-no-properties 2)) (prop0 (or (when (org-at-property-p) (org-match-string-no-properties 2))
(org-icompleting-read "Property: " (mapcar 'list keys)))) (org-icompleting-read "Property: " (mapcar 'list keys))))
(prop (if (member prop0 keys) (prop (if (member prop0 keys)
prop0 prop0
@ -13014,7 +13014,7 @@ in the current file."
"In the current entry, delete PROPERTY." "In the current entry, delete PROPERTY."
(interactive (interactive
(let* ((completion-ignore-case t) (let* ((completion-ignore-case t)
(prop (or (progn (org-at-property-p) (org-match-string-no-properties 2)) (prop (or (when (org-at-property-p) (org-match-string-no-properties 2))
(org-icompleting-read (org-icompleting-read
"Property: " (org-entry-properties nil 'standard))))) "Property: " (org-entry-properties nil 'standard)))))
(list prop))) (list prop)))