Remove redundant save of point and mark
`org-with-point-at` will do this already (at least for point).
This commit is contained in:
parent
1916eb6736
commit
8f4fa01304
|
@ -748,9 +748,8 @@ in an Org Mode buffer or when the clock is not active."
|
||||||
(user-error "Not in Org Mode, aborting"))
|
(user-error "Not in Org Mode, aborting"))
|
||||||
(unless org-clock-marker
|
(unless org-clock-marker
|
||||||
(user-error "No clocked-in task, aborting"))
|
(user-error "No clocked-in task, aborting"))
|
||||||
(save-mark-and-excursion
|
|
||||||
(org-with-point-at org-clock-marker
|
(org-with-point-at org-clock-marker
|
||||||
(org-store-link nil t)))
|
(org-store-link nil t))
|
||||||
(pcase-let ((`(,location ,description) (cl-first org-stored-links)))
|
(pcase-let ((`(,location ,description) (cl-first org-stored-links)))
|
||||||
(org-insert-link nil location description)))
|
(org-insert-link nil location description)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue