* riece-misc.el (riece-insert): Force redisplay for GNU Emacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e93b8c..dcd32aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-02-05  Daiki Ueno  <ueno@unixuser.org>
 
 2005-02-05  Daiki Ueno  <ueno@unixuser.org>
 

+       * riece-misc.el (riece-insert): Force redisplay for GNU Emacs.
+

        * riece.el (riece-exit): Clear riece-window-configuration frame
        parameter.
        * riece-commands.el (riece-command-suspend-resume): Don't attempt
        * riece.el (riece-exit): Clear riece-window-configuration frame
        parameter.
        * riece-commands.el (riece-command-suspend-resume): Don't attempt

diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el
index 2e2a912..363e45f 100644 (file)
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -84,7 +84,9 @@
                (goto-char point)       ;select-window changes current point
                (recenter riece-window-center-line))))
        (run-hook-with-args 'riece-after-insert-functions start (point))))
                (goto-char point)       ;select-window changes current point
                (recenter riece-window-center-line))))
        (run-hook-with-args 'riece-after-insert-functions start (point))))

-    (setq buffers (cdr buffers))))
+    (setq buffers (cdr buffers)))
+  ;; This triggers forced redisplay under GNU Emacs.
+  (sit-for 0))

 
 (defun riece-insert-change (buffer message)
   (riece-insert buffer (concat riece-change-prefix message)))
 
 (defun riece-insert-change (buffer message)
   (riece-insert buffer (concat riece-change-prefix message)))