- (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)))
+ (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))))