Function: calendar-scroll-toolkit-scroll

calendar-scroll-toolkit-scroll is an autoloaded, interactive and byte-compiled function defined in cal-move.el.gz.

Signature

(calendar-scroll-toolkit-scroll EVENT)

Documentation

Function to scroll the calendar after a toolkit scroll-bar click.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-move.el.gz
;; cf scroll-bar-toolkit-scroll
;;;###cal-autoload
(defun calendar-scroll-toolkit-scroll (event)
  "Function to scroll the calendar after a toolkit scroll-bar click."
  (interactive "e")
  (let ((part (nth 4 (event-end event))))
    ;; Not bothering with drag events (handle, end-scroll).
    (cond ((memq part '(above-handle up top))
           (calendar-scroll-right nil event))
          ((memq part '(below-handle down bottom))
           (calendar-scroll-left nil event)))))