diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2023-05-11 17:47:30 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2023-05-11 17:47:30 +0200 |
| commit | 60d5a015d1fb6f10439c80d3b0733de88c204d6c (patch) | |
| tree | 30436b61558760a80c818b0faed4f91b548ddf12 /lisp | |
| parent | b8bcd42cabc8e2d69359402dacd3e51fe75029db (diff) | |
| download | emacs-60d5a015d1fb6f10439c80d3b0733de88c204d6c.tar.gz | |
Update to Transient v0.4.0
Or strictly speaking v0.4.0-1-g428576a4.)
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) |