]> git.eshelyaron.com Git - emacs.git/commitdiff
Address some compilation warnings.
authorGlenn Morris <rgm@gnu.org>
Wed, 17 Jun 2015 00:04:35 +0000 (20:04 -0400)
committerGlenn Morris <rgm@gnu.org>
Wed, 17 Jun 2015 00:04:35 +0000 (20:04 -0400)
* 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.

lisp/emacs-lisp/byte-opt.el
lisp/emacs-lisp/bytecomp.el
lisp/emacs-lisp/generator.el
lisp/emacs-lisp/macroexp.el
lisp/face-remap.el
lisp/menu-bar.el
lisp/obsolete/vc-arch.el
lisp/progmodes/octave.el

index 30147931adc78e0c7329e36b0dbc59534df516bd..1a34fa78aefe14e4277ab9d7e56593e61515654f 100644 (file)
               (format "Inlining closure %S failed" name))
              form))))
 
-      (t ;; Give up on inlining.
+      (_ ;; Give up on inlining.
        form))))
 
 ;; ((lambda ...) ...)
index efd43898b60c3c1350a27466d07ecf31150a6994..baa08e754a1b90a0961d2d897930944d68bdb501 100644 (file)
@@ -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)
index 08e1b7c27a9c5531ed7f291ed549ea00914328ec..123f64b966008fa07a5bf6172eda3c69670558c1 100644 (file)
@@ -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)
index 05ffa8d52cc70297d8286bdd4d1168610d10c422..e9af3b08997a4fe0fb44dd314f378a8001098aeb 100644 (file)
@@ -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)
index 93eec5bd13c555094011376656765ddf01ef2ecd..3a8aba566dca0e15241298c8dd0803ff4cff8054 100644 (file)
@@ -330,7 +330,7 @@ a top-level keymap, `text-scale-increase' or
               ((or ?+ ?=) inc)
               (?- (- inc))
               (?0 0)
-              (t inc))))
+              (_ inc))))
       (text-scale-increase step)
       ;; (unless (zerop step)
       (message "Use +,-,0 for further adjustment")
index a1b6d95ec0b3bc36a0433dab6702ede9f6952ace..65ed8d5cc6595f3c2a1889d4883064d1ba3ffbbf 100644 (file)
@@ -2258,7 +2258,7 @@ If nil, the current mouse position is used."
     ;; Event.
     ((pred eventp)
      (popup-menu-normalize-position (event-end position)))
-    (t position)))
+    (_ position)))
 
 (defcustom tty-menu-open-use-tmm nil
   "If non-nil, \\[menu-bar-open] on a TTY will invoke `tmm-menubar'.
index 2469f761a914f47216a72bf055f55b2468639553..8b2454b1ea6912b8656adbd3c918948907be276f 100644 (file)
@@ -397,7 +397,7 @@ CALLBACK expects (ENTRIES &optional MORE-TO-COME); see
            (pcase (vc-state file)
              ((or `up-to-date `needs-update) ?-)
              (`added ?@)
-             (t ?:))
+             (_ ?:))
            rev)))
 
 (defun vc-arch-diff3-rej-p (rej)
index 8541cced3a53665e6549faf740439f6d573603f4..50f888cb9fd0efc2050f8dac009c7022ffacb615 100644 (file)
@@ -1064,7 +1064,7 @@ directory and makes this the current buffer's default directory."
     (pcase (and buffer-file-name (file-name-extension buffer-file-name))
       (`"cc" (funcall search
                       "\\_<DEFUN\\(?:_DLD\\)?\\s-*(\\s-*\\(\\(?:\\sw\\|\\s_\\)+\\)" 1))
-      (t (funcall search octave-function-header-regexp 3)))))
+      (_ (funcall search octave-function-header-regexp 3)))))
 
 (defun octave-function-file-p ()
   "Return non-nil if the first token is \"function\".
@@ -1820,7 +1820,7 @@ If the environment variable OCTAVE_SRCDIR is set, it is searched first."
                               (file-name-nondirectory name)))
          name
        (user-error "Aborted")))
-    (t name)))
+    (_ name)))
 
 (defvar find-tag-marker-ring)