mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

lisp/*.el: Lexical-binding cleanup.

Browse source
This commit is contained in:
Juanma Barranquero 2011-04-19 15:44:55 +02:00
parent 04c569546a
commit 06b605171f
106 changed files with 1290 additions and 831 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/mouse-drag.el
View file

@ -214,13 +214,10 @@ To test this function, evaluate:
(start-row (cdr (posn-col-row start-posn)))
(start-col (car (posn-col-row start-posn)))
(old-selected-window (selected-window))
event end row mouse-delta scroll-delta
event end row scroll-delta
have-scrolled
window-last-row
col mouse-col-delta window-last-col
col
(scroll-col-delta 0)
adjusted-mouse-col-delta
adjusted-mouse-delta
;; be conservative about allowing horizontal scrolling
(col-scrolling-p (mouse-drag-should-do-col-scrolling)))
(select-window start-window)
@ -275,10 +272,10 @@ To test this function, evaluate:
(start-row (cdr (posn-col-row start-posn)))
(start-col (car (posn-col-row start-posn)))
(old-selected-window (selected-window))
event end row mouse-delta scroll-delta
event end row scroll-delta
have-scrolled
window-last-row
col mouse-col-delta window-last-col
col window-last-col
(scroll-col-delta 0)
;; be conservative about allowing horizontal scrolling
(col-scrolling-p (mouse-drag-should-do-col-scrolling)))