diff options
author | Lars Magne Ingebrigtsen <[email protected]> | 2011-07-12 09:26:48 +0200 |
---|---|---|
committer | Lars Magne Ingebrigtsen <[email protected]> | 2011-07-12 09:26:48 +0200 |
commit | 296ba3ee9f7f8d1b9ba0c8dbf0cd8127fd02e9f0 (patch) | |
tree | b0ccdefc46ce63d7b2eb6177d53b62a85bed158e /lisp/subr.el | |
parent | 71e0ea1358607ad22ee8759345fd023553331f44 (diff) |
Remove `remove-duplicates', since `delete-dups' is sufficient.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 2b7ba17e10..5c9d6c8d72 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -173,7 +173,7 @@ value of last one, or nil if there are none. (progn ;; If we reload subr.el after having loaded CL, be careful not to ;; overwrite CL's extended definition of `dolist', `dotimes', - ;; `declare', `push', `pop' and `remove-duplicates'. + ;; `declare', `push' and `pop'. (defmacro dolist (spec &rest body) "Loop over a list. @@ -250,15 +250,6 @@ the return value (nil if RESULT is omitted). Treated as a declaration when used at the right place in a `defmacro' form. \(See Info anchor `(elisp)Definition of declare'.)" nil) - -(defun remove-duplicates (list) - "Return a copy of LIST with all duplicate elements removed." - (let ((result nil)) - (while list - (unless (member (car list) result) - (push (car list) result)) - (pop list)) - (nreverse result))) )) (defmacro ignore-errors (&rest body) |