From ad4415a4cbf67955c636b8a3384f3163cac61462 Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Wed, 12 Mar 2014 17:11:12 +0100 Subject: [PATCH] org.el (org-delete-property): Remove bogus properties * lisp/org.el (org-delete-property): Don't offer to delete "CATEGORY" property, since it's not really there. If there's only one property to delete, don't call `org-icompleting-read'. --- lisp/org.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 2f3820f..3a64d1d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15895,13 +15895,16 @@ in the current file." "In the current entry, delete PROPERTY." (interactive (let* ((completion-ignore-case t) - (prop (org-icompleting-read "Property: " - (org-entry-properties nil 'standard)))) - (list prop))) + (props (org-remove-if + (lambda (x) (string= (car x) "CATEGORY")) + (org-entry-properties nil 'standard)))) + (if (= 1 (length props)) + (list (caar props)) + (list (org-icompleting-read "Property: " props))))) (message "Property %s %s" property - (if (org-entry-delete nil property) - "deleted" - "was not present in the entry"))) + (if (org-entry-delete nil property) + "deleted" + "was not present in the entry"))) (defun org-delete-property-globally (property) "Remove PROPERTY globally, from all entries." -- 1.8.4