Function: ruler-mode-mouse-drag-any-column

ruler-mode-mouse-drag-any-column is a byte-compiled function defined in ruler-mode.el.gz.

Signature

(ruler-mode-mouse-drag-any-column START-EVENT)

Documentation

Update the value of the symbol dragged on the ruler.

Called on each mouse motion event START-EVENT.

Source Code

;; Defined in /usr/src/emacs/lisp/ruler-mode.el.gz
(defun ruler-mode-mouse-drag-any-column (start-event)
  "Update the value of the symbol dragged on the ruler.
Called on each mouse motion event START-EVENT."
  (let* ((start (event-start start-event))
         (end   (event-end   start-event))
         col newc)
    (save-selected-window
      (select-window (posn-window start))
      (setq col  (ruler-mode-window-col (car (posn-col-row end)))
            newc (+ col (ruler-mode-text-scaled-window-hscroll)))
      (when (and (>= col 0) (< col (ruler-mode-text-scaled-window-width)))
        (set ruler-mode-dragged-symbol newc)))))