From cbebd058c435ee2be5e9f30cedf78430ef979466 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 22 Apr 2016 00:47:44 -0400 Subject: [PATCH] * 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 fc1d9567b..3b0885542 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 ;; 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)) -- 2.39.2