From: John Wiegley Date: Tue, 24 Apr 2001 03:16:21 +0000 (+0000) Subject: (eshell-smart-redisplay): Added some safety code to work around a X-Git-Tag: emacs-pretest-21.0.103~138 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=157975e356a04f86bcad1f3503271d10149e7399;p=emacs.git (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 b47aa3576f3..78321bfc852 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-04-23 John Wiegley + + * 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 * calendar/timeclock.el (timeclock-day-required): If the time diff --git a/lisp/eshell/em-smart.el b/lisp/eshell/em-smart.el index 9bef8b10d20..0d7810df9e2 100644 --- 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)