From 4de326196a22645b7042e8ef94e914582522b2c7 Mon Sep 17 00:00:00 2001 From: Mikael Fornius Date: Thu, 10 Jun 2010 19:54:50 +0000 Subject: [PATCH] Use save-match-data macro instead of let. * org.el (org-at-property-p): Use save-match-data macro instead of let. --- lisp/org.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index c846ceebe..453a95517 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13198,12 +13198,11 @@ allowed value." (save-excursion (beginning-of-line 1) (when (looking-at (org-re "^[ \t]*\\(:\\([[:alpha:]][[:alnum:]_-]*\\):\\)[ \t]*\\(.*\\)")) - (let ((match (match-data)) ;; Keep match-data for use by calling - (p (point)) ;; procedures. - (range (unless (org-before-first-heading-p) - (org-get-property-block)))) - (prog1 (and range (<= (car range) p) (< p (cdr range))) - (set-match-data match)))))) + (save-match-data ;; Used by calling procedures + (let ((p (point)) + (range (unless (org-before-first-heading-p) + (org-get-property-block)))) + (and range (<= (car range) p) (< p (cdr range)))))))) (defun org-get-property-block (&optional beg end force) "Return the (beg . end) range of the body of the property drawer.