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