emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] master cbebd05: * seq-24.el (seq-concatenate, seq-into, seq--make


From: Stefan Monnier
Subject: [elpa] master cbebd05: * seq-24.el (seq-concatenate, seq-into, seq--make-bindings): Use _
Date: Fri, 22 Apr 2016 04:47:47 +0000

branch: master
commit cbebd058c435ee2be5e9f30cedf78430ef979466
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * seq-24.el (seq-concatenate,seq-into,seq--make-bindings): Use _
    
    rather than t as catch-all for pcase.
---
 packages/seq/seq-24.el |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/seq/seq-24.el b/packages/seq/seq-24.el
index fc1d956..3b08855 100644
--- a/packages/seq/seq-24.el
+++ b/packages/seq/seq-24.el
@@ -1,6 +1,6 @@
 ;;; seq-24.el --- seq.el implementation for Emacs 24.x -*- lexical-binding: t 
-*-
 
-;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2014-2016 Free Software Foundation, Inc.
 
 ;; Author: Nicolas Petton <address@hidden>
 ;; Keywords: sequences
@@ -270,7 +270,7 @@ TYPE must be one of following symbols: vector, string or 
list.
     (`vector (apply #'vconcat seqs))
     (`string (apply #'concat seqs))
     (`list (apply #'append (append seqs '(nil))))
-    (t (error "Not a sequence type name: %S" type))))
+    (_ (error "Not a sequence type name: %S" type))))
 
 (defun seq-mapcat (function sequence &optional type)
   "Concatenate the result of applying FUNCTION to each element of SEQUENCE.
@@ -359,7 +359,7 @@ TYPE can be one of the following symbols: vector, string or 
list."
     (`vector (vconcat sequence))
     (`string (concat sequence))
     (`list (append sequence nil))
-    (t (error "Not a sequence type name: %S" type))))
+    (_ (error "Not a sequence type name: %S" type))))
 
 (defun seq-min (sequence)
   "Return the smallest element of SEQUENCE.
@@ -432,7 +432,7 @@ BINDINGS."
                           (seq-drop ,sequence ,index))
                         bindings)
                   (setq rest-marker t)))
-          (t
+          (_
            (push `(,name (seq--elt-safe ,sequence ,index)) bindings))))
       (setq index (1+ index)))
     bindings))



reply via email to

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