From: Ivan Shmakov Date: Wed, 15 Oct 2014 01:15:40 +0000 (-0400) Subject: * lisp/erc/erc-track.el (erc-modified-channels-display): Update mode line X-Git-Tag: emacs-25.0.90~2635^2~679^2~59 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=643b1e97f71b3f90a55d90e00885b70cda123df2;p=emacs.git * 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 0833bda4cb1..c12f289ce0f 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,3 +1,8 @@ +2014-10-15 Ivan Shmakov + + * erc-track.el (erc-modified-channels-display): Update mode line + more frequently (bug#18510). + 2014-10-10 Kelvin White * erc.el (erc-initialize-log-marker): Only initialize @@ -434,9 +439,9 @@ 2011-11-28 Mike Kazantsev (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)))))