diff options
| author | John Wiegley | 2001-04-24 03:16:21 +0000 |
|---|---|---|
| committer | John Wiegley | 2001-04-24 03:16:21 +0000 |
| commit | 157975e356a04f86bcad1f3503271d10149e7399 (patch) | |
| tree | 9b49fedd1f30a9857b22973d891620dc96be0a74 /lisp/eshell | |
| parent | 3dc630b9e18cac41246c81e2d7d11c25857f4e58 (diff) | |
| download | emacs-157975e356a04f86bcad1f3503271d10149e7399.tar.gz emacs-157975e356a04f86bcad1f3503271d10149e7399.zip | |
(eshell-smart-redisplay): Added some safety code to work around a
redisplay problem I've been having.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/em-smart.el | 6 |
1 files changed, 5 insertions, 1 deletions
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." | |||
| 262 | (defun eshell-smart-redisplay () | 262 | (defun eshell-smart-redisplay () |
| 263 | "Display as much output as possible, smartly." | 263 | "Display as much output as possible, smartly." |
| 264 | (if (eobp) | 264 | (if (eobp) |
| 265 | (recenter -1) | 265 | (save-excursion |
| 266 | (recenter -1) | ||
| 267 | ;; trigger the redisplay now, so that we catch any attempted | ||
| 268 | ;; point motion; this is to cover for a redisplay bug | ||
| 269 | (eshell-redisplay)) | ||
| 266 | (let ((top-point (point))) | 270 | (let ((top-point (point))) |
| 267 | (and (memq 'eshell-smart-display-move pre-command-hook) | 271 | (and (memq 'eshell-smart-display-move pre-command-hook) |
| 268 | (>= (point) eshell-last-input-start) | 272 | (>= (point) eshell-last-input-start) |