Mercurial > emacs

comparison lisp/mouse-drag.el @ 16320:56f494ed6b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-throw): Bind adjusted-mouse-delta.
author Richard M. Stallman <rms@gnu.org>
date Wed, 25 Sep 1996 03:32:13 +0000
parents 8bd3981bd342
children f4be70df6bb6
comparison
equal deleted inserted replaced
16319:8bd3981bd342 16320:56f494ed6b13
203 have-scrolled point-event-p old-binding 203 have-scrolled point-event-p old-binding
204 window-last-row 204 window-last-row
205 col mouse-col-delta window-last-col 205 col mouse-col-delta window-last-col
206 (scroll-col-delta 0) 206 (scroll-col-delta 0)
207 adjusted-mouse-col-delta 207 adjusted-mouse-col-delta
208 adjusted-mouse-delta
208 ;; be conservative about allowing horizontal scrolling 209 ;; be conservative about allowing horizontal scrolling
209 (col-scrolling-p (mouse-drag-should-do-col-scrolling))) 210 (col-scrolling-p (mouse-drag-should-do-col-scrolling)))
210 (select-window start-window) 211 (select-window start-window)
211 (track-mouse 212 (track-mouse
212 (while (progn 213 (while (progn