emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/embark 4f2729c978: Use org-with-point-at in embark-org-


From: ELPA Syncer
Subject: [elpa] externals/embark 4f2729c978: Use org-with-point-at in embark-org--at-remote-heading
Date: Sat, 9 Sep 2023 09:57:51 -0400 (EDT)

branch: externals/embark
commit 4f2729c97817e950eda45c052e685018d9f71740
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Use org-with-point-at in embark-org--at-remote-heading
    
    Thanks @alphapapa for the suggestion! That macro also widens the
    buffer if necessary, which I wasn't doing.
---
 embark-org.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/embark-org.el b/embark-org.el
index 95016fd9b0..249f531972 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -575,10 +575,8 @@ REST are the remaining arguments."
 The location is given by the `org-marker' text property of
 target.  Applies RUN to the REST of the arguments."
   (if-let ((marker (get-text-property 0 'org-marker target)))
-      (with-current-buffer (marker-buffer marker)
-        (save-excursion
-          (goto-char marker)
-          (apply run :target target rest)))
+      (org-with-point-at marker
+        (apply run :target target rest))
     (apply run :target target rest)))
 
 (defun embark-org-goto-remote-heading (&rest args)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]