From: Glenn Morris <rgm@gnu.org>
Date: Wed, 17 Jun 2015 00:28:48 +0000 (-0400)
Subject: Address some compilation warnings.
X-Git-Tag: emacs-25.0.90~1733
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5152a7eef9dbb8b6953f9efdd44bcdbca2311dd;p=emacs.git

Address some compilation warnings.

* lisp/elec-pair.el (electric-pair-post-self-insert-function):
* lisp/vc/vc-git.el (vc-git-file-type-as-string):
Replace 't' with '_' in pcase.
---

diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el
index db812c9e121..205ad7e488b 100644
--- a/lisp/elec-pair.el
+++ b/lisp/elec-pair.el
@@ -499,7 +499,7 @@ happened."
                   (not (funcall electric-pair-inhibit-predicate
                                 last-command-event))))
          (save-excursion (electric-pair--insert pair)))))
-      (t
+      (_
        (when (and (if (functionp electric-pair-open-newline-between-pairs)
                       (funcall electric-pair-open-newline-between-pairs)
                     electric-pair-open-newline-between-pairs)
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index e3cd5d4e3dc..9522328cae8 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -308,12 +308,12 @@ matching the resulting Git log output, and KEYWORDS is a list of
 		  (pcase old-type
 		    (?\100 "   (type change file -> symlink)")
 		    (?\160 "   (type change subproject -> symlink)")
-		    (t "   (symlink)")))
+		    (_ "   (symlink)")))
 		  (?\160  ;; Subproject.
 		   (pcase old-type
 		     (?\100 "   (type change file -> subproject)")
 		     (?\120 "   (type change symlink -> subproject)")
-		     (t "   (subproject)")))
+		     (_ "   (subproject)")))
                   (?\110 nil)  ;; Directory (internal, not a real git state).
 		  (?\000  ;; Deleted or unknown.
 		   (pcase old-type