From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Ecay Subject: =?UTF-8?B?W1JGQ10gW1BBVENIXSBvcmcuZWw6IGZpeCDigJhvcmctYnVmZmVy?= =?UTF-8?B?LXByb3BlcnR5LWtleXPigJk=?= Date: Tue, 26 Aug 2014 21:35:41 -0400 Message-ID: <1409103341-17457-1-git-send-email-aaronecay@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:36712) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XMS9S-0003yK-5p for emacs-orgmode@gnu.org; Tue, 26 Aug 2014 21:36:00 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XMS9M-0001jx-5g for emacs-orgmode@gnu.org; Tue, 26 Aug 2014 21:35:54 -0400 Received: from mail-qc0-x235.google.com ([2607:f8b0:400d:c01::235]:35681) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XMS9M-0001jq-1H for emacs-orgmode@gnu.org; Tue, 26 Aug 2014 21:35:48 -0400 Received: by mail-qc0-f181.google.com with SMTP id x13so16342509qcv.40 for ; Tue, 26 Aug 2014 18:35:47 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * lisp/org.el (org-buffer-property-keys): Only match real property drawers. This patch adds an org-element based check. Otherwise the following triggers a bogus prompt to fix a malformed drawer on typing M-: (org-buffer-property-keys) * foo (add-to-list 'org-capture-templates '("c" "Contact" entry (file "~/org/contacts.org") "* %(org-contacts-template-name)%? :PROPERTIES: :EMAIL: %(org-contacts-template-email) :END:")) --- lisp/org.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index d529a31..2e3003a 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -15825,6 +15825,8 @@ formats in the current buffer." (goto-char (point-min)) (while (re-search-forward org-property-start-re nil t) (catch 'cont + (unless (eq (org-element-type (org-element-at-point)) 'property-drawer) + (throw 'cont nil)) (setq range (or (org-get-property-block) (if (y-or-n-p (format "Malformed drawer at %d, repair?" (point))) -- 2.1.0