diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2015-06-30 18:59:21 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2015-06-30 18:59:21 +0300 |
| commit | edd09381c618125d8aa23c9414034fbeee176305 (patch) | |
| tree | 009641f2aad95cc9852b06b036a4e6a9f143be94 /lisp/ruler-mode.el | |
| parent | 881c4790266c42805ac1b9a5f1bbe13d3dd23478 (diff) | |
| download | emacs-edd09381c618125d8aa23c9414034fbeee176305.tar.gz emacs-edd09381c618125d8aa23c9414034fbeee176305.tar.bz2 emacs-edd09381c618125d8aa23c9414034fbeee176305.zip | |
Don't block changes in mouse pointer inside 'track-mouse'
* etc/NEWS:
* doc/lispref/frames.texi (Mouse Tracking): Document the special
effect of setting 'track-mouse' to 'dragging'.
* lisp/textmodes/artist.el (artist-mouse-draw-continously):
* lisp/ruler-mode.el (ruler-mode-mouse-drag-any-column-iteration):
* lisp/mouse-drag.el (mouse-drag-throw):
* lisp/mouse.el (mouse-drag-line): Set 'track-mouse' to 'dragging'
to avoid changes in the shape of the mouse pointer.
* src/xdisp.c (define_frame_cursor1): Don't change the mouse
pointer shape when do_mouse_tracking has the value of 'dragging',
not just any non-nil value. (Bug#20934)
(syms_of_xdisp): DEFSYM 'dragging'.
Diffstat (limited to 'lisp/ruler-mode.el')
| -rw-r--r-- | lisp/ruler-mode.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index f0b012ed2f1..4f68909ed4c 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el @@ -437,6 +437,8 @@ the mouse has been clicked." (let ((drags 0) event) (track-mouse + ;; Signal the display engine to freeze the mouse pointer shape. + (setq track-mouse 'dragging) (while (mouse-movement-p (setq event (read-event))) (setq drags (1+ drags)) (when (eq window (posn-window (event-end event))) |