mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

Put insertion of diary entry on daily menu.

Browse source
This commit is contained in:
Edward M. Reingold 1994-10-26 15:28:56 +00:00
parent cba0c2538d
commit d960f2795a
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/calendar/cal-menu.el
View file

@ -238,6 +238,13 @@ ERROR is t, otherwise just returns nil."
(calendar-goto-date (calendar-event-to-date))
(view-diary-entries 1)))
(defun calendar-mouse-insert-diary-entry ()
"Insert diary entry for mouse-selected date."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(insert-diary-entry nil)))
(defun calendar-mouse-set-mark ()
"Mark the date under the cursor."
(interactive)
@ -284,6 +291,7 @@ ERROR is t, otherwise just returns nil."
(list
(calendar-date-string date t t)
'("Diary entries" . calendar-mouse-view-diary-entries)
'("Insert diary entry" . calendar-mouse-insert-diary-entry)
'("Holidays" . calendar-mouse-holidays)
'("Mark date" . calendar-mouse-set-mark)
'("Sunrise/sunset" . calendar-mouse-sunrise/sunset)