procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/seq.el: Fix a byte-compiler warnings related to pcase.

Browse source
This commit is contained in:
Nicolas Petton 2015-06-16 23:49:17 +02:00
parent 7d5c120fed
commit 70a567971a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/seq.el
View file

@ -249,7 +249,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 seq &optional type)
"Concatenate the result of applying FUNCTION to each element of SEQ.
@ -323,7 +323,7 @@ TYPE can be one of the following symbols: vector, string or list."
(`vector (vconcat seq))
(`string (concat seq))
(`list (append seq nil))
(t (error "Not a sequence type name: %S" type))))
(_ (error "Not a sequence type name: %S" type))))
(defun seq--drop-list (list n)
"Return a list from LIST without its first N elements.
@ -379,7 +379,7 @@ This is an optimization for lists in `seq-take-while'."
,(seq--elt-safe args (1+ index)))
bindings)
(setq rest-marker t)))
(t
(_
(push `(app (pcase--flip seq--elt-safe ,index) ,name) bindings))))
(setq index (1+ index)))
bindings))
@ -413,7 +413,7 @@ BINDINGS."
(seq-drop ,seq ,index))
bindings)
(setq rest-marker t)))
(t
(_
(push `(,name (seq--elt-safe ,seq ,index)) bindings))))
(setq index (1+ index)))
bindings))