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

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

[elpa] externals/embark a6ea648cac: Give org element targets lower prior


From: ELPA Syncer
Subject: [elpa] externals/embark a6ea648cac: Give org element targets lower priority than the active region
Date: Wed, 1 Mar 2023 09:57:45 -0500 (EST)

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

    Give org element targets lower priority than the active region
---
 embark-org.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/embark-org.el b/embark-org.el
index 7f911e96a0..a6989065b8 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -117,7 +117,10 @@
                end (1- end))
       collect `(,(intern (format "org-%s" (car elt))) ,target ,begin . ,end))))
 
-(add-to-list 'embark-target-finders 'embark-org-target-element-context)
+(if-let (((not (memq 'embark-org-target-element-context 
embark-target-finders)))
+         (tail (memq 'embark-target-active-region embark-target-finders)))
+    (push 'embark-org-target-element-context (cdr tail))
+  (push 'embark-org-target-element-context embark-target-finders))
 
 ;;; Custom Org actions
 



reply via email to

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