emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master d5152a7: Address some compilation warnings.


From: Glenn Morris
Subject: [Emacs-diffs] master d5152a7: Address some compilation warnings.
Date: Wed, 17 Jun 2015 00:28:51 +0000

branch: master
commit d5152a7eef9dbb8b6953f9efdd44bcdbca2311dd
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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.
---
 lisp/elec-pair.el |    2 +-
 lisp/vc/vc-git.el |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el
index db812c9..205ad7e 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 e3cd5d4..9522328 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]