From b61631a77d672ae53f7650cbfef7fcedac6951fa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 9 May 1994 03:20:21 +0000 Subject: (calendar-mouse-set-mark): New function. (calendar-mouse-date-menu): Bind it to key. --- lisp/calendar/cal-menu.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 96faf2b495..ef99d9bb47 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -230,6 +230,13 @@ (calendar-goto-date (calendar-event-to-date)) (view-diary-entries 1))) +(defun calendar-mouse-set-mark () + "Mark the date under the cursor." + (interactive) + (save-excursion + (calendar-goto-date (calendar-event-to-date)) + (calendar-set-mark nil))) + (defun calendar-mouse-print-dates () "Pop up menu of equivalent dates to mouse selected date." (interactive) @@ -272,7 +279,7 @@ t t) '("Diary entries" . calendar-mouse-view-diary-entries) '("Holidays" . calendar-mouse-holidays) - '("Mark date" . calendar-set-mark) + '("Mark date" . calendar-mouse-set-mark) '("Sunrise/sunset" . calendar-mouse-sunrise/sunset) '("Other calendars" . calendar-mouse-print-dates))) (list "Menu" -- cgit v1.2.3