forked from mirrors/org-mode
org-macs: Tiny refactoring
* lisp/org-macs.el (org-match-line): Use (beginning-of-line) instead of (goto-char (point-at-bol)).
This commit is contained in:
parent
22a4896bf8
commit
7856018d78
|
@ -194,11 +194,11 @@ program is needed for, so that the error message can be more informative."
|
|||
(<= (match-beginning n) pos)
|
||||
(>= (match-end n) pos)))
|
||||
|
||||
(defun org-match-line (re)
|
||||
"Looking-at at the beginning of the current line."
|
||||
(defun org-match-line (regexp)
|
||||
"Match REGEXP at the beginning of the current line."
|
||||
(save-excursion
|
||||
(goto-char (point-at-bol))
|
||||
(looking-at re)))
|
||||
(beginning-of-line)
|
||||
(looking-at regexp)))
|
||||
|
||||
(defun org-plist-delete (plist property)
|
||||
"Delete PROPERTY from PLIST.
|
||||
|
|
Loading…
Reference in a new issue