* lisp/erc/erc-track.el (erc-modified-channels-display): Update mode line

more frequently.

Fixes: debbugs:18510

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 0833bda4cb14b3dbcbdedbdc6c7ba02ccccf6fcc..c12f289ce0f5dfabada4f11a776ea7b7ffb97fd0 100644 (file)
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,8 @@
+2014-10-15  Ivan Shmakov  <ivan@siamics.net>
+
+       * erc-track.el (erc-modified-channels-display): Update mode line
+       more frequently (bug#18510).
+
 2014-10-10  Kelvin White  <kwhite@gnu.org>
 
        * erc.el (erc-initialize-log-marker): Only initialize
@@ -434,9 +439,9 @@
 
 2011-11-28  Mike Kazantsev  <mk.fraggod@gmail.com>  (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.
 

diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el
index 706cce2fefebabdb25f69d125cfb928d1e997673..47e76c3ea1e235a90663a392bc68be78d6a308ba 100644 (file)
--- a/lisp/erc/erc-track.el
+++ b/lisp/erc/erc-track.el
@@ -860,7 +860,7 @@ Use `erc-make-mode-line-buffer-name' to create buttons."
                        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)))))