mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* lisp/emacs-lisp/seq.el (seq-drop-while): Define only once.
This commit is contained in:
Oleh Krehel 2015-09-09 15:09:31 +02:00
parent b074436925
commit 765dcc709c
1 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/seq.el
View file

@ -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)