From 0aea9594e12f302f775779c638e1c40289a73482 Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Sun, 12 Jun 2016 12:40:53 +0200 Subject: [PATCH] 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 3b0885542..d0aa618bd 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 b6cdb061c..b2f5c98dd 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 ee029f045..9f96ec861 100644 --- a/packages/seq/seq.el +++ b/packages/seq/seq.el @@ -4,7 +4,7 @@ ;; Author: Nicolas Petton ;; Keywords: sequences -;; Version: 2.15 +;; Version: 2.16 ;; Package: seq ;; Maintainer: emacs-devel@gnu.org -- 2.39.2