|
From: | Glenn Morris |
Subject: | bug#3862: 23.1.50; error calling `documentation' on calendar-mode |
Date: | Fri, 17 Jul 2009 01:12:29 -0400 |
User-agent: | Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) |
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."
[Prev in Thread] | Current Thread | [Next in Thread] |