branch: externals/seq
commit 0775a8abc8de346141511ede515e52871c6065fa
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
* seq-24.el (seq-concatenate,seq-into,seq--make-bindings): Use _
rather than t as catch-all for pcase.
---
seq-24.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/seq-24.el b/seq-24.el
index fc1d9567bc..3b08855421 100644
--- a/seq-24.el
+++ b/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 <[email protected]>
;; 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))
