# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 988082098 0
# Node ID f8c03126b03207d1fccd72279468b2e17274b4b5
# Parent  df3f22466392cd856c9952314400b86bf2183609
(eshell-smart-redisplay): Added some safety code to work around a
redisplay problem I've been having.

diff -r df3f22466392 -r f8c03126b032 lisp/eshell/em-smart.el
--- a/lisp/eshell/em-smart.el	Tue Apr 24 01:39:55 2001 +0000
+++ b/lisp/eshell/em-smart.el	Tue Apr 24 03:14:58 2001 +0000
@@ -262,7 +262,11 @@
 (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)