From d960f2795a09e8dec5d982de22ee068c77ed2a92 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Wed, 26 Oct 1994 15:28:56 +0000 Subject: [PATCH] Put insertion of diary entry on daily menu. --- lisp/calendar/cal-menu.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 67025412a8b..c687ced14c8 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -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) -- 2.39.5