(eshell-smart-redisplay): Added some safety code to work around a

redisplay problem I've been having.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b47aa3576f3cd0baf6ff9807f96702113127fd67..78321bfc8527811de37a25a3359118bddf402638 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-04-23  John Wiegley  <johnw@gnu.org>
+
+       * eshell/em-smart.el (eshell-smart-redisplay): Added some safety
+       code to work around a redisplay problem I've been having.
+
 2001-04-23  John Wiegley  <johnw@gnu.org>
 
        * calendar/timeclock.el (timeclock-day-required): If the time

diff --git a/lisp/eshell/em-smart.el b/lisp/eshell/em-smart.el
index 9bef8b10d20f2ec4a2cd4ed966280988f30d87be..0d7810df9e2969ee59e781c12d23d0f4651ada90 100644 (file)
--- a/lisp/eshell/em-smart.el
+++ b/lisp/eshell/em-smart.el
@@ -262,7 +262,11 @@ and the end of the buffer are still visible."
 (defun eshell-smart-redisplay ()
   "Display as much output as possible, smartly."
   (if (eobp)
-      (recenter -1)
+      (save-excursion
+       (recenter -1)
+       ;; trigger the redisplay now, so that we catch any attempted
+       ;; point motion; this is to cover for a redisplay bug
+       (eshell-redisplay))
     (let ((top-point (point)))
       (and (memq 'eshell-smart-display-move pre-command-hook)
           (>= (point) eshell-last-input-start)