From 7856018d7887aaafde8c82b2cda666d6beac4ff1 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 15 Dec 2016 00:02:58 +0100 Subject: [PATCH] org-macs: Tiny refactoring * lisp/org-macs.el (org-match-line): Use (beginning-of-line) instead of (goto-char (point-at-bol)). --- lisp/org-macs.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 6c0abcbfe..b7da6c61f 100644 --- a/lisp/org-macs.el +++ b/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.