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

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:
Nicolas Goaziou 2016-12-15 00:02:58 +01:00
parent 22a4896bf8
commit 7856018d78
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-macs.el
View File

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