Update seq.el to 2.16

[gnu-emacs-elpa] / packages / seq / seq-25.el

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."