Mercurial > emacs
changeset 75430:06172d4ae1d7
Fix whitespace and indentation.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 27 Jan 2007 17:38:14 +0000 |
| parents | 0d32395ff1eb |
| children | 6c4552697561 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 13 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- 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