diff options
| author | Artur Malabarba | 2015-05-06 19:27:43 +0100 |
|---|---|---|
| committer | Artur Malabarba | 2015-05-06 19:27:43 +0100 |
| commit | f201bf6a5050d575dfc759fa23955fab0fbcfcb9 (patch) | |
| tree | de1ab9e17481eed317bd8d0c0df28f7e222f084b | |
| parent | 7cc0f68b3801945d510f78f75ad3ee4df5a995b9 (diff) | |
| download | emacs-f201bf6a5050d575dfc759fa23955fab0fbcfcb9.tar.gz emacs-f201bf6a5050d575dfc759fa23955fab0fbcfcb9.zip | |
* lisp/subr.el (delete-dups): Make it destructive again.
| -rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 591980d03fa..a32fb968365 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -424,12 +424,12 @@ one is kept." | |||
| 424 | (unless (gethash elt hash) | 424 | (unless (gethash elt hash) |
| 425 | (puthash elt elt hash) | 425 | (puthash elt elt hash) |
| 426 | (push elt res))) | 426 | (push elt res))) |
| 427 | (nreverse res)) | 427 | (setcdr list (cdr (nreverse res)))) |
| 428 | (let ((tail list)) | 428 | (let ((tail list)) |
| 429 | (while tail | 429 | (while tail |
| 430 | (setcdr tail (delete (car tail) (cdr tail))) | 430 | (setcdr tail (delete (car tail) (cdr tail))) |
| 431 | (setq tail (cdr tail)))) | 431 | (setq tail (cdr tail))))) |
| 432 | list)) | 432 | list) |
| 433 | 433 | ||
| 434 | ;; See http://lists.gnu.org/archive/html/emacs-devel/2013-05/msg00204.html | 434 | ;; See http://lists.gnu.org/archive/html/emacs-devel/2013-05/msg00204.html |
| 435 | (defun delete-consecutive-dups (list &optional circular) | 435 | (defun delete-consecutive-dups (list &optional circular) |