From: Oleh Krehel <ohwoeowho@gmail.com>
Date: Wed, 9 Sep 2015 13:09:31 +0000 (+0200)
Subject: Remove redundant redefinition of seq-drop-while from seq.el
X-Git-Tag: emacs-25.0.90~1224^2~182
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=765dcc709c6bbb0ae246e5f680daa585f3f53573;p=emacs.git

Remove redundant redefinition of seq-drop-while from seq.el

* lisp/emacs-lisp/seq.el (seq-drop-while): Define only once.
---

diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index 8dc91471312..751c18f4aae 100644
--- a/lisp/emacs-lisp/seq.el
+++ b/lisp/emacs-lisp/seq.el
@@ -417,13 +417,7 @@ If no element is found, return nil."
     (nreverse result)))
 
 (cl-defmethod seq-drop-while (pred (list list))
-  "Optimized implementation of `seq-drop-while' for lists"
-  (while (and list (funcall pred (car list)))
-    (setq list (cdr list)))
-  list)
-
-(cl-defmethod seq-drop-while (pred (list list))
-  "Optimized implementation of `seq-drop-while' for lists"
+  "Optimized implementation of `seq-drop-while' for lists."
   (while (and list (funcall pred (car list)))
     (setq list (cdr list)))
   list)