Function: cal-menu-set-date-title

cal-menu-set-date-title is a byte-compiled function defined in cal-menu.el.gz.

Signature

(cal-menu-set-date-title MENU)

Documentation

Convert date of last event to title suitable for MENU.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-menu.el.gz
;; In 22, the equivalent code gave an error when not called on a date,
;; but easymenu does not seem to allow this (?).
;; The ignore-errors is because `documentation' can end up calling
;; this in a non-calendar buffer where displayed-month is unbound.  (Bug#3862)
;; This still has issues - bug#9976, so added derived-mode-p call.
(defun cal-menu-set-date-title (menu)
  "Convert date of last event to title suitable for MENU."
  (when (derived-mode-p 'calendar-mode)
    (let ((date (ignore-errors (calendar-cursor-to-date nil last-input-event))))
      (if date
          (easy-menu-filter-return menu (calendar-date-string date t nil))
        (message "Not on a date!")
        nil))))