From: Stefan Monnier Date: Tue, 5 Nov 2013 14:32:01 +0000 (-0500) Subject: * lisp/net/rcirc.el (rcirc-record-activity): Don't abuse add-to-list. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~956 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=520a6e4a5fd6b8275c8b6948ffb29de362054b82;p=emacs.git * lisp/net/rcirc.el (rcirc-record-activity): Don't abuse add-to-list. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 10dbbf92b84..cd8342fdb49 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-11-05 Stefan Monnier + + * net/rcirc.el (rcirc-record-activity): Don't abuse add-to-list. + 2013-11-05 Michael Albinus Fix problems found while writing a test suite. @@ -15,13 +19,12 @@ 2013-11-05 Bozhidar Batsov - * progmodes/python.el (python-mode): Remove incorrect text from docstring. - * progmodes/scheme.el (scheme-mode): Remove incorrect text from docstring. - * progmodes/prolog.el (prolog-mode): Remove incorrect text from docstring. - * emacs-lisp/lisp-mode.el (lisp-mode, lisp-interaction-mode, emacs-lisp-mode): - Remove incorrect text from docstring. - - * progmodes/ruby-mode.el (ruby-mode): Remove incorrect text from docstring. + * progmodes/python.el (python-mode): + * progmodes/scheme.el (scheme-mode): + * progmodes/prolog.el (prolog-mode): + * progmodes/ruby-mode.el (ruby-mode): + * emacs-lisp/lisp-mode.el (lisp-mode, lisp-interaction-mode) + (emacs-lisp-mode): Remove incorrect and redundant text from docstring. 2013-11-04 Stefan Monnier diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 2d8da415295..f7d43989868 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -1950,7 +1950,8 @@ activity. Only run if the buffer is not visible and (old-types rcirc-activity-types)) (when (not (get-buffer-window (current-buffer) t)) (setq rcirc-activity - (sort (add-to-list 'rcirc-activity (current-buffer)) + (sort (if (memq (current-buffer) rcirc-activity) rcirc-activity + (cons (current-buffer) rcirc-activity)) (lambda (b1 b2) (let ((t1 (with-current-buffer b1 rcirc-last-post-time)) (t2 (with-current-buffer b2 rcirc-last-post-time)))