diff options
| -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) |