Mercurial > emacs

comparison lisp/mouse.el @ 8117:20100d7e5b0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-scroll-subr): Delete some debugging code.
author Richard M. Stallman <rms@gnu.org>
date Sat, 02 Jul 1994 00:47:40 +0000
parents de6f0cdfd332
children 1f57b34ade27
comparison
equal deleted inserted replaced
8116:67c8a970fd4d 8117:20100d7e5b0f
175 ;; start position until the next redisplay. Hurrah. 175 ;; start position until the next redisplay. Hurrah.
176 (vertical-motion (1- jump) window)) 176 (vertical-motion (1- jump) window))
177 (goto-char (window-start window))) 177 (goto-char (window-start window)))
178 (if overlay 178 (if overlay
179 (move-overlay overlay start (point))) 179 (move-overlay overlay start (point)))
180 (setq eobp (eobp))
181 ;; Now that we have scrolled WINDOW properly, 180 ;; Now that we have scrolled WINDOW properly,
182 ;; put point back where it was for the redisplay 181 ;; put point back where it was for the redisplay
183 ;; so that we don't mess up the selected window. 182 ;; so that we don't mess up the selected window.
184 (or (eq window (selected-window)) 183 (or (eq window (selected-window))
185 (goto-char opoint)) 184 (goto-char opoint))