bug#3862: 23.1.50; error calling `documentation' on calendar-mode

[Glenn Morris]

Perhaps something like this is better:

*** cal-menu.el.~1.114.~        2009-01-07 20:13:09.000000000 -0800
--- cal-menu.el 2009-07-16 22:08:54.000000000 -0700
***************
*** 202,210 ****
  
  (defun cal-menu-set-date-title (menu)
    "Convert date of last event to title suitable for MENU."
!   (easy-menu-filter-return
!    menu (calendar-date-string (calendar-cursor-to-date t last-input-event)
!                               t nil)))
  
  (easy-menu-define cal-menu-context-mouse-menu nil
    "Pop up menu for Mouse-2 for selected date in the calendar window."
--- 202,212 ----
  
  (defun cal-menu-set-date-title (menu)
    "Convert date of last event to title suitable for MENU."
!   (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)))
  
  (easy-menu-define cal-menu-context-mouse-menu nil
    "Pop up menu for Mouse-2 for selected date in the calendar window."