From 954366308345c5b1d7c13dacc0e01e138d48a1f8 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Tue, 1 Nov 1994 02:17:53 +0000 Subject: [PATCH] Bind new function to mouse. --- lisp/calendar/cal-menu.el | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 055a200cdbf..4296187b3bc 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -76,6 +76,8 @@ '("Mark all" . mark-diary-entries)) (define-key calendar-mode-map [menu-bar diary view] '("Cursor date" . view-diary-entries)) +(define-key calendar-mode-map [menu-bar diary view] + '("Other file" . view-other-diary-entries)) (define-key calendar-mode-map [menu-bar holidays] (cons "Holidays" (make-sparse-keymap "Holidays"))) @@ -171,6 +173,7 @@ (put 'calendar-sunrise-sunset 'menu-enable '(calendar-event-to-date)) (put 'calendar-cursor-holidays 'menu-enable '(calendar-cursor-to-date)) (put 'view-diary-entries 'menu-enable '(calendar-cursor-to-date)) +(put 'view-other-diary-entries 'menu-enable '(calendar-cursor-to-date)) (put 'calendar-mouse-insert-hebrew-diary-entry 'menu-enable '(calendar-cursor-to-date)) @@ -239,6 +242,13 @@ ERROR is t, otherwise just returns nil." (calendar-goto-date (calendar-event-to-date)) (view-diary-entries 1))) +(defun calendar-mouse-view-other-diary-entries () + "View diary entries from alternative file on mouse-selected date." + (interactive) + (save-excursion + (calendar-goto-date (calendar-event-to-date)) + (call-interactively 'view-other-diary-entries))) + (defun calendar-mouse-insert-diary-entry () "Insert diary entry for mouse-selected date." (interactive) @@ -291,12 +301,15 @@ ERROR is t, otherwise just returns nil." (list "Menu" (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) - '("Other calendars" . calendar-mouse-print-dates)))))) + '("Other calendars" . calendar-mouse-print-dates) + '("Diary entries" . calendar-mouse-view-diary-entries) + '("Insert diary entry" . calendar-mouse-insert-diary-entry) + '("Other diary file entries" + . calendar-mouse-view-other-diary-entries) + ))))) (and selection (call-interactively selection)))) (define-key calendar-mouse-3-map [exit-calendar] -- 2.39.5