Update to Transient v0.4.0

Or strictly speaking v0.4.0-1-g428576a4.)

diff --git a/doc/misc/transient.texi b/doc/misc/transient.texi
index 33d689cc01b58b6daf9b43f9362b79f0dbde7b02..330fdd1e3a253aa77b24598f830bd670964dea53 100644 (file)
--- a/doc/misc/transient.texi
+++ b/doc/misc/transient.texi
@@ -31,7 +31,7 @@ General Public License for more details.
 @finalout
 @titlepage
 @title Transient User and Developer Manual
-@subtitle for version 0.3.7.50
+@subtitle for version 0.4.0
 @author Jonas Bernoulli
 @page
 @vskip 0pt plus 1filll
@@ -74,7 +74,7 @@ that hurdle is Psionic K's interactive tutorial, available at
 @end quotation
 
 @noindent
-This manual is for Transient version 0.3.7.50.
+This manual is for Transient version 0.4.0.
 
 @insertcopying
 @end ifnottex

diff --git a/lisp/transient.el b/lisp/transient.el
index 9785e218b191bf9da4fd03799b64c899a6cb5bf0..1d763c4ddeb9b7a9573746986d66d457abfd2466 100644 (file)
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -6,7 +6,7 @@
 ;; URL: https://github.com/magit/transient
 ;; Keywords: extensions
 
-;; Package-Version: 0.3.7.50
+;; Package-Version: 0.4.0
 ;; Package-Requires: ((emacs "26.1"))
 
 ;; SPDX-License-Identifier: GPL-3.0-or-later
@@ -3934,8 +3934,13 @@ search instead."
 (defun transient-isearch-abort ()
   "Like `isearch-abort' but adapted for `transient'."
   (interactive)
-  (condition-case nil (isearch-abort) (quit))
-  (transient--isearch-exit))
+  (let ((around (lambda (fn)
+                  (condition-case nil (funcall fn) (quit))
+                  (transient--isearch-exit))))
+    (advice-add 'isearch-cancel :around around)
+    (unwind-protect
+        (isearch-abort)
+      (advice-remove 'isearch-cancel around))))
 
 (defun transient--isearch-setup ()
   (select-window transient--window)