ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Harden `org-at-clock-log-p' 

* lisp/org.el (org-at-clock-log-p): Do strict checking.
This commit is contained in:
Nicolas Goaziou 2017-02-03 00:33:25 +01:00
parent aef7eef0f9
commit ec285b1057
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org.el
View File

@ -18046,11 +18046,10 @@ stamps in properties drawers, planning lines and clocks."
(message "Timestamp is now %sactive"
(if (equal (char-after beg) ?<) "" "in")))))
(defun org-at-clock-log-p nil
"Is the cursor on the clock log line?"
(save-excursion
(beginning-of-line)
(looking-at org-clock-line-re)))
(defun org-at-clock-log-p ()
"Non-nil if point is on a clock log line."
(and (org-match-line org-clock-line-re)
(eq (org-element-type (save-match-data (org-element-at-point))) 'clock)))
(defvar org-clock-history) ; defined in org-clock.el
(defvar org-clock-adjust-closest nil) ; defined in org-clock.el