diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/transient.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index 9785e218b19..1d763c4ddeb 100644 --- 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) |