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.
This commit is contained in:
@@ -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)
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user