diff options
author | Gerd Moellmann <[email protected]> | 2000-03-09 20:08:49 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2000-03-09 20:08:49 +0000 |
commit | 1853aa6bc9d2cd9c74d8778f32785a616f0ba1ae (patch) | |
tree | ad94ad35536f0bad690426d4d8c385927911a239 /lisp | |
parent | f74bbbbf5574dd0be3237a179da1ead133ffc89f (diff) |
(mouse-drag-region): Don't run up-event handler
if hscroll has changed.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/mouse.el | 8 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 22da99f2f7..f9bcf40d9e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2000-03-09 Gerd Moellmann <[email protected]> + * mouse.el (mouse-drag-region): Don't run up-event handler + if hscroll has changed. + * octave-mod.el (octave-font-lock-keywords): To font-lock the builtin operators, use `font-lock-builtin-face' for Emacs and `font-lock-preprocessor-face' otherwise. diff --git a/lisp/mouse.el b/lisp/mouse.el index 01884f11cf..28f3ca2ba1 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -554,6 +554,7 @@ remains active. Otherwise, it remains until the next input event." (start-point (posn-point start-posn)) (start-window (posn-window start-posn)) (start-frame (window-frame start-window)) + (start-hscroll (window-hscroll start-window)) (bounds (window-edges start-window)) (top (nth 1 bounds)) (bottom (if (window-minibuffer-p start-window) @@ -676,9 +677,10 @@ remains active. Otherwise, it remains until the next input event." (mouse-set-region-1)))) (delete-overlay mouse-drag-overlay) ;; Run the binding of the terminating up-event. - (if (fboundp fun) - (setq unread-command-events - (cons event unread-command-events))))) + (when (and (fboundp fun) + (= start-hscroll (window-hscroll start-window))) + (setq unread-command-events + (cons event unread-command-events))))) (delete-overlay mouse-drag-overlay))))) ;; Commands to handle xterm-style multiple clicks. |