mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-drag-region): Don't run up-event handler

Browse source 
if hscroll has changed.
This commit is contained in:
Gerd Moellmann 2000-03-09 20:08:49 +00:00
parent f74bbbbf55
commit 1853aa6bc9
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2000-03-09 Gerd Moellmann <gerd@gnu.org>
* 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.

4
lisp/mouse.el
View file

@ -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,7 +677,8 @@ 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)
(when (and (fboundp fun)
(= start-hscroll (window-hscroll start-window)))
(setq unread-command-events
(cons event unread-command-events)))))
(delete-overlay mouse-drag-overlay)))))