From 05b531f69577fc9f2bbbd3cfe7c12f1132e7fce6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 27 Jan 2007 17:38:14 +0000 Subject: [PATCH] Fix whitespace and indentation. --- lisp/mouse.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) 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 -- 2.39.2