X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/207f11935755236b21ca4d3fe6b19206e0a9ed33..2cc412cdc2635ecb99129271abe94bdd744742c2:/lisp/ruler-mode.el

diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index f0b012ed2f..f1b5da497c 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)))
@@ -773,8 +775,4 @@ Optional argument PROPS specifies other text properties to apply."
 
 (provide 'ruler-mode)
 
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
 ;;; ruler-mode.el ends here