diff options
| author | Richard M. Stallman | 1998-01-20 04:56:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-20 04:56:52 +0000 |
| commit | 97d26a9743d89e18f30624ec7fb7fadcf5b45c77 (patch) | |
| tree | a934d8210e62a9afdc2b9fa9079b10db89798928 | |
| parent | 5d6a85e05fe3c861f0f66f19ad391eeeb070acbd (diff) | |
| download | emacs-97d26a9743d89e18f30624ec7fb7fadcf5b45c77.tar.gz emacs-97d26a9743d89e18f30624ec7fb7fadcf5b45c77.zip | |
(momentary-string-display): Fix backward test
for whether end of message is off the screen.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 683c8e291b2..d344754c34b 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -809,7 +809,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." | |||
| 809 | (insert-before-markers string) | 809 | (insert-before-markers string) |
| 810 | (setq insert-end (point)) | 810 | (setq insert-end (point)) |
| 811 | ;; If the message end is off screen, recenter now. | 811 | ;; If the message end is off screen, recenter now. |
| 812 | (if (> (window-end) insert-end) | 812 | (if (< (window-end) insert-end) |
| 813 | (recenter (/ (window-height) 2))) | 813 | (recenter (/ (window-height) 2))) |
| 814 | ;; If that pushed message start off the screen, | 814 | ;; If that pushed message start off the screen, |
| 815 | ;; scroll to start it at the top of the screen. | 815 | ;; scroll to start it at the top of the screen. |