diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/generator.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 30147931adc..1a34fa78aef 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -292,7 +292,7 @@ (format "Inlining closure %S failed" name)) form)))) - (t ;; Give up on inlining. + (_ ;; Give up on inlining. form)))) ;; ((lambda ...) ...) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index efd43898b60..baa08e754a1 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1417,7 +1417,7 @@ extra args." (`(lambda ,args . ,_) args) (`(closure ,_ ,args . ,_) args) ((pred byte-code-function-p) (aref old 0)) - (t '(&rest def))))) + (_ '(&rest def))))) (sig2 (byte-compile-arglist-signature arglist))) (unless (byte-compile-arglist-signatures-congruent-p sig1 sig2) (byte-compile-set-symbol-position name) diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el index 08e1b7c27a9..123f64b9660 100644 --- a/lisp/emacs-lisp/generator.el +++ b/lisp/emacs-lisp/generator.el @@ -507,7 +507,7 @@ don't yield.") next-state))) ;; Process everything else by just evaluating the form normally. - (t (cps--make-atomic-state form next-state)))) + (_ (cps--make-atomic-state form next-state)))) (defun cps--make-catch-wrapper (tag-binding next-state) (lambda (form) diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 05ffa8d52cc..e9af3b08997 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -284,7 +284,7 @@ Assumes the caller has bound `macroexpand-all-environment'." (macroexp--expand-all newform))) (macroexp--expand-all newform)))))) - (t form)))) + (_ form)))) ;;;###autoload (defun macroexpand-all (form &optional environment) |