diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-06-16 20:04:35 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-06-16 20:04:35 -0400 |
| commit | 55b41a82cdbb682a4657ddc47d194e5813cf262b (patch) | |
| tree | befb15c0a376e843765274c2e275c96244f5f2ed /lisp/emacs-lisp | |
| parent | cf94a3e0c4320f74c1de8c9a887b1ed8e74163d3 (diff) | |
| download | emacs-55b41a82cdbb682a4657ddc47d194e5813cf262b.tar.gz emacs-55b41a82cdbb682a4657ddc47d194e5813cf262b.tar.bz2 emacs-55b41a82cdbb682a4657ddc47d194e5813cf262b.zip | |
Address some compilation warnings.
* lisp/face-remap.el (text-scale-adjust):
* lisp/menu-bar.el (popup-menu-normalize-position):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand):
* lisp/emacs-lisp/bytecomp.el (byte-compile-arglist-warn):
* lisp/emacs-lisp/generator.el (cps--transform-1):
* lisp/emacs-lisp/macroexp.el (macroexp--expand-all):
* lisp/obsolete/vc-arch.el (vc-arch-mode-line-string):
* lisp/progmodes/octave.el (octave-goto-function-definition)
(octave-find-definition-default-filename):
Replace 't' with '_' in pcase.
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) |