martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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)