From: Eli Zaretskii Date: Sat, 27 Jan 2007 17:38:14 +0000 (+0000) Subject: Fix whitespace and indentation. X-Git-Tag: emacs-pretest-22.0.94~605 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05b531f69577fc9f2bbbd3cfe7c12f1132e7fce6;p=emacs.git Fix whitespace and indentation. --- diff --git a/lisp/mouse.el b/lisp/mouse.el index 7d3c39a986c..c221a9bee99 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1041,19 +1041,19 @@ should only be used by mouse-drag-region." (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