diff options
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))) |