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 db812c9e1213bf28ddcb7fc6a934dca8b8e2372b..205ad7e488bb08913d63b88e640f666ef8390ad0 100644 (file)
--- 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 e3cd5d4e3dcaa5fbd62ac173823dba61e5e42a1c..9522328cae846f06292303b38024089d2f1396e5 100644 (file)
--- 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