mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 14:02:51 +00:00
org-find-open-clocks: Fix recent bug in handling of match data
* lisp/org-clock.el (org-find-open-clocks): Prevent clock match data from being clobbered by downstream org-element-at-point call.
This commit is contained in:
parent
eabc9bfecf
commit
d3f587fadf
|
@ -921,7 +921,8 @@ If CLOCK-SOUND is non-nil, it overrides `org-clock-sound'."
|
|||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward org-clock-re nil t)
|
||||
(when (org-element-type-p (org-element-at-point) 'clock)
|
||||
(when (save-match-data
|
||||
(org-element-type-p (org-element-at-point) 'clock))
|
||||
(push (cons (copy-marker (match-end 1) t)
|
||||
(org-time-string-to-time (match-string 1)))
|
||||
clocks)))))
|
||||
|
|
Loading…
Reference in a new issue