# HG changeset patch # User Eli Zaretskii # Date 1169919494 0 # Node ID 06172d4ae1d72cc409ea3bb2f415ccde041f5345 # Parent 0d32395ff1eb7837f41bb02001854ab13abe1b77 Fix whitespace and indentation. diff -r 0d32395ff1eb -r 06172d4ae1d7 lisp/mouse.el --- a/lisp/mouse.el Sat Jan 27 14:40:08 2007 +0000 +++ b/lisp/mouse.el Sat Jan 27 17:38:14 2007 +0000 @@ -1041,19 +1041,19 @@ (if do-multi-click (goto-char start-point)) (delete-overlay mouse-drag-overlay) (when (and (functionp fun) - (= start-hscroll (window-hscroll start-window)) - ;; Don't run the up-event handler if the - ;; window start changed in a redisplay after - ;; the mouse-set-point for the down-mouse - ;; event at the beginning of this function. - ;; When the window start has changed, the - ;; up-mouse event will contain a different - ;; position due to the new window contents, - ;; and point is set again. - (or end-point - (= (window-start start-window) - start-window-start))) - (when (and on-link + (= start-hscroll (window-hscroll start-window)) + ;; Don't run the up-event handler if the + ;; window start changed in a redisplay after + ;; the mouse-set-point for the down-mouse + ;; event at the beginning of this function. + ;; When the window start has changed, the + ;; up-mouse event will contain a different + ;; position due to the new window contents, + ;; and point is set again. + (or end-point + (= (window-start start-window) + start-window-start))) + (when (and on-link (or (not end-point) (= end-point start-point)) (consp event) (or remap-double-click