[Emacs-diffs] trunk r118112: * lisp/erc/erc-track.el (erc-modified-channels-display): Update mode line

[Stefan Monnier]

------------------------------------------------------------
revno: 118112
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18510
author: Ivan Shmakov <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2014-10-14 21:15:40 -0400
message:
  * lisp/erc/erc-track.el (erc-modified-channels-display): Update mode line
  more frequently.
modified:
  lisp/erc/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-4305
  lisp/erc/erc-track.el          
erctrack.el-20091113204419-o5vbwnq5f7feedwu-4342

=== modified file 'lisp/erc/ChangeLog'
--- a/lisp/erc/ChangeLog        2014-10-10 13:16:12 +0000
+++ b/lisp/erc/ChangeLog        2014-10-15 01:15:40 +0000
@@ -1,3 +1,8 @@
+2014-10-15  Ivan Shmakov  <address@hidden>
+
+       * erc-track.el (erc-modified-channels-display): Update mode line
+       more frequently (bug#18510).
+
 2014-10-10  Kelvin White  <address@hidden>
 
        * erc.el (erc-initialize-log-marker): Only initialize
@@ -434,9 +439,9 @@
 
 2011-11-28  Mike Kazantsev  <address@hidden>  (tiny change)
 
-       * erc-dcc.el (erc-dcc-ctcp-query-send-regexp): Updated regexp to
+       * erc-dcc.el (erc-dcc-ctcp-query-send-regexp): Update regexp to
        match quoted filenames with spaces inside.
-       (erc-dcc-handle-ctcp-send): Updated regexp match group numbers,
+       (erc-dcc-handle-ctcp-send): Update regexp match group numbers,
        added processing of escaped quotes and backslashes if filename
        itself was in quotes.
 

=== modified file 'lisp/erc/erc-track.el'
--- a/lisp/erc/erc-track.el     2014-09-24 17:31:59 +0000
+++ b/lisp/erc/erc-track.el     2014-10-15 01:15:40 +0000
@@ -860,7 +860,7 @@
                        faces (cdr faces)))
                strings)))
           (newobject (erc-modified-channels-object strings)))
-      (unless (equal oldobject newobject)
+      (unless (equal-including-properties oldobject newobject)
        (setq erc-modified-channels-object newobject)
        (force-mode-line-update t)))))