[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/embark 4f2729c978: Use org-with-point-at in embark-org--at-remote-heading,
ELPA Syncer <=