diff options
author | Richard M. Stallman <[email protected]> | 1994-05-09 03:20:21 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-05-09 03:20:21 +0000 |
commit | b61631a77d672ae53f7650cbfef7fcedac6951fa (patch) | |
tree | f0ec96902607eb1e7bef88b72fbaee9155670b41 /lisp/calendar/cal-menu.el | |
parent | 61cb81625eb951e2f119cb9e5fc73a34607736f9 (diff) |
(calendar-mouse-set-mark): New function.
(calendar-mouse-date-menu): Bind it to key.
Diffstat (limited to 'lisp/calendar/cal-menu.el')
-rw-r--r-- | lisp/calendar/cal-menu.el | 9 |
1 files changed, 8 insertions, 1 deletions
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" |