From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mikael Fornius Subject: Re: [PATCH] org-at-property-p and related Date: Thu, 11 Mar 2010 15:01:10 +0100 Message-ID: <87iq93j6u1.fsf@eee.lan> References: <878w9zkopt.fsf@eee.lan> <874oknkoka.fsf@eee.lan> <87mxyfj9cl.fsf@eee.lan> <1B465F86-9D70-411F-93F7-E5EFE40BF0FA@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Npixy-0003IE-LS for emacs-orgmode@gnu.org; Thu, 11 Mar 2010 09:02:22 -0500 Received: from [140.186.70.92] (port=50354 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NpitJ-0002S0-Sv for emacs-orgmode@gnu.org; Thu, 11 Mar 2010 09:02:22 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Npit1-00067R-QM for emacs-orgmode@gnu.org; Thu, 11 Mar 2010 08:57:16 -0500 Received: from violet.abc.se ([62.80.200.155]:41957) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Npit1-00067F-D2 for emacs-orgmode@gnu.org; Thu, 11 Mar 2010 08:57:15 -0500 In-Reply-To: <1B465F86-9D70-411F-93F7-E5EFE40BF0FA@gmail.com> (Carsten Dominik's message of "Thu, 11 Mar 2010 14:10:35 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Carsten Dominik Cc: emacs-orgmode@gnu.org --=-=-= Sorry, I did a little wrong again. It is not my day today... Please also apply this for correct behavior: --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=org-at-property-p-3.diff Content-Description: 2 progn -> when diff --git a/lisp/org.el b/lisp/org.el index ad15d5e..a4932a2 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))) --=-=-= -- Mikael Fornius --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--