mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(calendar-mouse-set-mark): New function.

Browse Source 
(calendar-mouse-date-menu): Bind it to key.
This commit is contained in:
Richard M. Stallman 1994-05-09 03:20:21 +00:00
parent 61cb81625e
commit b61631a77d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/calendar/cal-menu.el
View File

@ -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"