branch: master
commit 0aea9594e12f302f775779c638e1c40289a73482
Author: Nicolas Petton <nico...@petton.fr>
Commit: Nicolas Petton <nico...@petton.fr>
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.
---
packages/seq/seq-24.el | 5 +----
packages/seq/seq-25.el | 5 +----
packages/seq/seq.el | 2 +-
3 files changed, 3 insertions(+), 9 deletions(-)
diff --git a/packages/seq/seq-24.el b/packages/seq/seq-24.el
index 3b08855..d0aa618 100644
--- 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 b6cdb06..b2f5c98 100644
--- 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 ee029f0..9f96ec8 100644
--- a/packages/seq/seq.el
+++ b/packages/seq/seq.el
@@ -4,7 +4,7 @@
;; Author: Nicolas Petton <nico...@petton.fr>
;; Keywords: sequences
-;; Version: 2.15
+;; Version: 2.16
;; Package: seq
;; Maintainer: emacs-de...@gnu.org
