diff --git a/lisp/org.el b/lisp/org.el index c87f0219f..6425270b3 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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