From 8f4fa01304614faedf4cc0bb589a34435c3d3efd Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Thu, 1 Apr 2021 16:51:46 +0200 Subject: [PATCH] Remove redundant save of point and mark `org-with-point-at` will do this already (at least for point). --- site-lisp/db-org.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index eb81b52..32da47d 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -748,9 +748,8 @@ in an Org Mode buffer or when the clock is not active." (user-error "Not in Org Mode, aborting")) (unless org-clock-marker (user-error "No clocked-in task, aborting")) - (save-mark-and-excursion - (org-with-point-at org-clock-marker - (org-store-link nil t))) + (org-with-point-at org-clock-marker + (org-store-link nil t)) (pcase-let ((`(,location ,description) (cl-first org-stored-links))) (org-insert-link nil location description)))