[elpa] externals/embark 76f199644a: Add embark-isearch-backward

[ELPA Syncer]

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

    Add embark-isearch-backward
---
 CHANGELOG.org |  2 ++
 embark.el     | 21 ++++++++++++++++-----
 2 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 1b5f5fd422..690901728f 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -3,6 +3,8 @@
 * Development version
 - Added a mode line indicator showing the number of selected targets in
   the current buffer (contributed by @minad, thanks!)
+- Renamed =embark-isearch= to =embark-isearch-forward= and added
+  =embark-isearch-backward=.
 * Version 0.22.1 (2023-04-20)
 ** New feature: selections
 Now users can select several targets to make an ad hoc collection. The
diff --git a/embark.el b/embark.el
index 1042808bb4..2b7c769498 100644
--- a/embark.el
+++ b/embark.el
@@ -405,7 +405,8 @@ the key :always are executed always."
     (package-delete embark--confirm)
     (,'tab-bar-close-tab-by-name embark--confirm) ;; Avoid package-lint warning
     ;; search for region contents outside said region
-    (embark-isearch embark--unmark-target)
+    (embark-isearch-forward embark--unmark-target)
+    (embark-isearch-backward embark--unmark-target)
     (occur embark--unmark-target)
     (query-replace embark--beginning-of-target embark--unmark-target)
     (query-replace-regexp embark--beginning-of-target embark--unmark-target)
@@ -1572,7 +1573,8 @@ matching an element of this list."
           (const :tag "Exclude Embark general actions"
                  (embark-collect embark-live embark-export
                   embark-cycle embark-act-all embark-keymap-help
-                  embark-become embark-isearch))
+                  embark-become embark-isearch-forward
+                  embark-isearch-backward))
           (repeat :tag "Other" (choice regexp symbol))))
 
 (defcustom embark-verbose-indicator-buffer-sections
@@ -3751,14 +3753,22 @@ with command output.  For replacement behavior see
    (list (read-char-by-name "Insert character  (Unicode name or hex): ")))
   (kill-new (format "%c" char)))
 
-(defun embark-isearch ()
-  "Prompt for string in the minibuffer and start isearch.
+(defun embark-isearch-forward ()
+  "Prompt for string in the minibuffer and start isearch forwards.
 Unlike isearch, this command reads the string from the
 minibuffer, which means it can be used as an Embark action."
   (interactive)
   (isearch-mode t)
   (isearch-edit-string))
 
+(defun embark-isearch-backward ()
+  "Prompt for string in the minibuffer and start isearch backwards.
+Unlike isearch, this command reads the string from the
+minibuffer, which means it can be used as an Embark action."
+  (interactive)
+  (isearch-mode nil)
+  (isearch-edit-string))
+
 (defun embark-toggle-highlight ()
   "Toggle symbol highlighting using `highlight-symbol-at-point'."
   (interactive)
@@ -4043,7 +4053,8 @@ This simply calls RUN with the REST of its arguments 
inside
   "L" #'embark-live
   "B" #'embark-become
   "A" #'embark-act-all
-  "C-s" #'embark-isearch
+  "C-s" #'embark-isearch-forward
+  "C-r" #'embark-isearch-backward
   "C-SPC" #'mark
   "DEL" #'delete-region
   "SPC" #'embark-select)