procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/subr.el (delete-dups): Make it destructive again.

Browse source
This commit is contained in:
Artur Malabarba 2015-05-06 19:27:43 +01:00
parent 7cc0f68b38
commit f201bf6a50
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -424,12 +424,12 @@ one is kept."
(unless (gethash elt hash)
(puthash elt elt hash)
(push elt res)))
(nreverse res))
(setcdr list (cdr (nreverse res))))
(let ((tail list))
(while tail
(setcdr tail (delete (car tail) (cdr tail)))
(setq tail (cdr tail))))
list))
(setq tail (cdr tail)))))
list)
;; See http://lists.gnu.org/archive/html/emacs-devel/2013-05/msg00204.html
(defun delete-consecutive-dups (list &optional circular)