From b4f23faff4e9b5fab7bea06fb06bf3eff2db8a3c Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 11 Mar 2010 15:04:49 +0100 Subject: [PATCH] Postfix for the previous patch --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ad15d5ebb..a4932a2bc 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12986,7 +12986,7 @@ in the current file." (interactive (let* ((completion-ignore-case 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)))) (prop (if (member prop0 keys) prop0 @@ -13014,7 +13014,7 @@ in the current file." "In the current entry, delete PROPERTY." (interactive (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 "Property: " (org-entry-properties nil 'standard))))) (list prop)))