Update seq.el to 2.16

* packages/seq/seq-24.el:
* packages/seq/seq-25.el: Better implementation of seq-drop for lists.
* packages/seq/seq.el: Bump version number.

diff --git a/packages/seq/seq-24.el b/packages/seq/seq-24.el
index 3b08855421dd207ed17e5504579e514d7e98e94f..d0aa618bd3fa123a69da7727727ffe910d48bf63 100644 (file)
--- a/packages/seq/seq-24.el
+++ b/packages/seq/seq-24.el
@@ -374,10 +374,7 @@ SEQUENCE must be a sequence of numbers or markers."
 (defun seq--drop-list (list n)
   "Return a list from LIST without its first N elements.
 This is an optimization for lists in `seq-drop'."
-  (while (and list (> n 0))
-    (setq list (cdr list)
-          n (1- n)))
-  list)
+  (nthcdr n list))
 
 (defun seq--take-list (list n)
   "Return a list from LIST made of its first N elements.

diff --git a/packages/seq/seq-25.el b/packages/seq/seq-25.el
index b6cdb061c47501b9c8346c20856a675a4e90f6a9..b2f5c98dd11a67cf1788a37d1c2050ea60ed5505 100644 (file)
--- a/packages/seq/seq-25.el
+++ b/packages/seq/seq-25.el
@@ -440,10 +440,7 @@ SEQUENCE must be a sequence of numbers or markers."
 
 (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."

diff --git a/packages/seq/seq.el b/packages/seq/seq.el
index ee029f045237da2d2b7c6b9d5cb5163bbe5be39b..9f96ec861b295383174f2ccdd60a60ea78ac6c42 100644 (file)
--- a/packages/seq/seq.el
+++ b/packages/seq/seq.el
@@ -4,7 +4,7 @@
 
 ;; Author: Nicolas Petton <nicolas@petton.fr>
 ;; Keywords: sequences
-;; Version: 2.15
+;; Version: 2.16
 ;; Package: seq
 
 ;; Maintainer: emacs-devel@gnu.org