;;; ruler-mode.el --- display a ruler in the header line
-;; Copyright (C) 2001-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2001-2016 Free Software Foundation, Inc.
;; Author: David Ponce <david@dponce.com>
;; Maintainer: David Ponce <david@dponce.com>
(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)))
(provide 'ruler-mode)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; ruler-mode.el ends here