diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-12-19 04:42:18 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-12-19 04:42:18 +0100 |
| commit | d468cf91b9fbcd915644246f27dbaa87e23c7e7b (patch) | |
| tree | c88c14f5372b67e3f02bcb16359b99256d9f2800 /lisp/transient.el | |
| parent | 9a633dce63904b54738a63eb5007869fd851419a (diff) | |
| parent | de2239a584ab9b3bcdea2379f2c54ea3d20d596f (diff) | |
| download | emacs-d468cf91b9fbcd915644246f27dbaa87e23c7e7b.tar.gz emacs-d468cf91b9fbcd915644246f27dbaa87e23c7e7b.tar.bz2 emacs-d468cf91b9fbcd915644246f27dbaa87e23c7e7b.zip | |
Merge from origin/emacs-29
de2239a584a Revert "alist-get testfn argument evaluation correction"
856d889f3a8 Revert "Elide broken but unnecessary `if` optimisations"
8e42e20ed7f Revert "Use equal and member instead of eq and memq"
Diffstat (limited to 'lisp/transient.el')
| -rw-r--r-- | lisp/transient.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index 01c492c68c1..1cab697eecb 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -2203,7 +2203,7 @@ value. Otherwise return CHILDREN as is." (unless abort-only (setq post-command (lambda () "@transient--delay-post-command" - (let ((act (and (not (equal (this-command-keys-vector) [])) + (let ((act (and (not (eq (this-command-keys-vector) [])) (or (eq this-command command) ;; `execute-extended-command' was ;; used to call another command @@ -2241,7 +2241,7 @@ value. Otherwise return CHILDREN as is." (transient--debug 'post-command) (transient--with-emergency-exit (cond - ((and (equal (this-command-keys-vector) []) + ((and (eq (this-command-keys-vector) []) (= (minibuffer-depth) (1+ transient--minibuffer-depth))) (transient--suspend-override) |