Browse Source

Merge branch 'maint'

Nicolas Goaziou 8 years ago
parent
commit
4510075ea4
1 changed files with 4 additions and 4 deletions
  1. 4 4
      lisp/org-macs.el

+ 4 - 4
lisp/org-macs.el

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