mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source 
redisplay problem I've been having.
This commit is contained in:
John Wiegley 2001-04-24 03:16:21 +00:00
parent 3dc630b9e1
commit 157975e356
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

6
lisp/eshell/em-smart.el
View File

@ -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)