diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-12-16 12:17:33 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-12-16 17:19:21 +0100 |
| commit | f4b430140f0866f98bbf18b7094348dc64032813 (patch) | |
| tree | ce358de58a35b6b77e3605c320b8f882b2c2d644 /lisp/transient.el | |
| parent | 13aa376e93564a8cf2ddbbcf0968c6666620db89 (diff) | |
| download | emacs-f4b430140f0866f98bbf18b7094348dc64032813.tar.gz | |
Use equal and member instead of eq and memq
* lisp/cedet/semantic/complete.el (semantic-displayer-show-request):
* lisp/descr-text.el (describe-char-categories):
* lisp/mh-e/mh-identity.el (mh-select-identity):
* lisp/transient.el (transient--delay-post-command)
(transient--post-command):
* lisp/vc/vc-git.el (vc-git-create-tag):
* test/lisp/emacs-lisp/cl-lib-tests.el
(cl-lib-nth-value-test-multiple-values):
* lisp/emulation/viper-cmd.el (viper-preserve-cursor-color):
Use `equal` instead of `eq` and `member` instead of `memq` where
the comparison is with literals without guaranteed identity.
In some cases this change corrects evident bugs, in others it is
mostly cosmetic.
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 0919c2c3ef0..9656ab9854a 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 (eq (this-command-keys-vector) [])) + (let ((act (and (not (equal (this-command-keys-vector) [])) (or (eq this-command command) ;; `execute-extended-command' was ;; used to call another command @@ -2236,7 +2236,7 @@ value. Otherwise return CHILDREN as is." (transient--debug 'post-command) (transient--with-emergency-exit (cond - ((and (eq (this-command-keys-vector) []) + ((and (equal (this-command-keys-vector) []) (= (minibuffer-depth) (1+ transient--minibuffer-depth))) (transient--suspend-override) |