diff options
| author | Oleh Krehel <ohwoeowho@gmail.com> | 2015-09-09 15:09:31 +0200 |
|---|---|---|
| committer | Oleh Krehel <ohwoeowho@gmail.com> | 2015-09-09 15:10:15 +0200 |
| commit | 765dcc709c6bbb0ae246e5f680daa585f3f53573 (patch) | |
| tree | e97b4af7ed2b4faa280e92d321e28d27cd71f9d6 /lisp/emacs-lisp/seq.el | |
| parent | b074436925a0fe8329ef86d0a36238f5c593888c (diff) | |
| download | emacs-765dcc709c6bbb0ae246e5f680daa585f3f53573.tar.gz | |
Remove redundant redefinition of seq-drop-while from seq.el
* lisp/emacs-lisp/seq.el (seq-drop-while): Define only once.
Diffstat (limited to 'lisp/emacs-lisp/seq.el')
| -rw-r--r-- | 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 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) |