emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 765dcc7: Remove redundant redefinition of seq-drop-


From: Oleh Krehel
Subject: [Emacs-diffs] master 765dcc7: Remove redundant redefinition of seq-drop-while from seq.el
Date: Wed, 09 Sep 2015 13:10:30 +0000

branch: master
commit 765dcc709c6bbb0ae246e5f680daa585f3f53573
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Remove redundant redefinition of seq-drop-while from seq.el
    
    * lisp/emacs-lisp/seq.el (seq-drop-while): Define only once.
---
 lisp/emacs-lisp/seq.el |    8 +-------
 1 files changed, 1 insertions(+), 7 deletions(-)

diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index 8dc9147..751c18f 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]