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

* lisp/emacs-lisp/seq.el (seq-drop): Better list implementation

Browse source
This commit is contained in:
Nicolas Petton 2016-06-12 12:37:16 +02:00
parent 643e0b8d28
commit 37f8a470d0
No known key found for this signature in database
GPG key ID: 233587A47C207910
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -4,7 +4,7 @@
;; Author: Nicolas Petton <nicolas@petton.fr>
;; Keywords: sequences
;; Version: 2.14
;; Version: 2.16
;; Package: seq
;; Maintainer: emacs-devel@gnu.org
@ -471,10 +471,7 @@ If no element is found, return nil."
(cl-defmethod seq-drop ((list list) n)
"Optimized implementation of `seq-drop' for lists."
(while (and list (> n 0))
(setq list (cdr list)
n (1- n)))
list)
(nthcdr n list))
(cl-defmethod seq-take ((list list) n)
"Optimized implementation of `seq-take' for lists."