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

(mouse-scroll-subr): Handle if window-end returns nil.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-03-14 08:20:37 +00:00
parent 65627aad68
commit 0320e66f47
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/mouse.el
View File

@ -478,11 +478,13 @@ Upon exit, point is at the far edge of the newly visible text."
(progn
(set-window-start window (point))
(if (natnump jump)
(progn
(goto-char (window-end window))
;; window-end doesn't reflect the window's new
;; start position until the next redisplay. Hurrah.
(vertical-motion (1- jump) window))
(if (window-end window)
(progn
(goto-char (window-end window))
;; window-end doesn't reflect the window's new
;; start position until the next redisplay.
(vertical-motion (1- jump) window))
(vertical-motion (- (window-height window) 2)))
(goto-char (window-start window)))
(if overlay
(move-overlay overlay start (point)))