[Emacs-diffs] trunk r114975: * lisp/net/rcirc.el (rcirc-record-activity): Don't abuse add-to-list.

[Stefan Monnier]

------------------------------------------------------------
revno: 114975
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-11-05 09:32:01 -0500
message:
  * lisp/net/rcirc.el (rcirc-record-activity): Don't abuse add-to-list.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/rcirc.el              rcirc.el-20091113204419-o5vbwnq5f7feedwu-4032

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-05 14:18:41 +0000
+++ b/lisp/ChangeLog    2013-11-05 14:32:01 +0000
@@ -1,3 +1,7 @@
+2013-11-05  Stefan Monnier  <address@hidden>
+
+       * net/rcirc.el (rcirc-record-activity): Don't abuse add-to-list.
+
 2013-11-05  Michael Albinus  <address@hidden>
 
        Fix problems found while writing a test suite.
@@ -15,13 +19,12 @@
 
 2013-11-05  Bozhidar Batsov  <address@hidden>
 
-       * 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  <address@hidden>
 

=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2013-08-05 14:26:57 +0000
+++ b/lisp/net/rcirc.el 2013-11-05 14:32:01 +0000
@@ -1950,7 +1950,8 @@
          (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)))