Function: calendar-print-other-dates

calendar-print-other-dates is an interactive and byte-compiled function defined in calendar.el.gz.

Signature

(calendar-print-other-dates &optional EVENT)

Documentation

Show dates on other calendars for date under the cursor.

If called by a mouse-event, pops up a menu with the result.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/calendar.el.gz
(defun calendar-print-other-dates (&optional event)
  "Show dates on other calendars for date under the cursor.
If called by a mouse-event, pops up a menu with the result."
  (interactive (list last-nonmenu-event))
  (let* ((date (calendar-cursor-to-date t event))
         (title (format "%s (Gregorian)" (calendar-date-string date)))
         (others (calendar-other-dates date))
         selection)
    (if (mouse-event-p event)
        (and (setq selection (cal-menu-x-popup-menu event title
                               (mapcar #'list others)))
             (call-interactively selection))
      (calendar-in-read-only-buffer calendar-other-calendars-buffer
        (calendar-set-mode-line title)
        (insert (mapconcat #'identity others "\n"))))))