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

more frequently.

Fixes: debbugs:18510

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 0833bda4cb1..c12f289ce0f 100644
--- 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 706cce2fefe..47e76c3ea1e 100644
--- 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)))))