tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Use save-match-data macro instead of let.

Browse source 
* org.el (org-at-property-p): Use save-match-data macro instead of let.
This commit is contained in:
Mikael Fornius 2010-06-10 19:54:50 +00:00 committed by John Wiegley
parent 2560f72c33
commit 4de326196a
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org.el
View file

@ -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.