ibuffer: Fix issue with ERC scroll-to-bottom (Bug #858).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34540d598d2c52078bf8f54fb940efc09dd786be..94ffd1fab549785b97f65a82c79aaf120dc9dc4d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-10-08  Michael Olson  <mwolson@gnu.org>
+
+       * ibuffer.el (ibuffer-shrink-to-fit): Force redisplay, so that we
+       can avoid a bad interaction with programs that add functions to
+       the window-scroll-functions hook.  This fixes Bug #858.
+
 2008-10-07  Chong Yidong  <cyd@stupidchicken.com>
 
        * startup.el (command-line): Use display-warning to warn about an

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 539f88ec3c1da21619a134c219589eb7c1d74912..262f2ad73ab0eec8b972abe4c22c40eb47141de9 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1153,6 +1153,9 @@ a new window in the current frame, splitting vertically."
     (ibuffer-redisplay t)))
 
 (defun ibuffer-shrink-to-fit (&optional owin)
+  ;; Make sure that redisplay is performed, otherwise there can be a
+  ;; bad interaction with code in the window-scroll-functions hook
+  (redisplay t)
   (fit-window-to-buffer nil (when owin (/ (frame-height)
                                          (length (window-list (selected-frame)))))))