mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

Bind new function to mouse.

Browse Source
This commit is contained in:
Edward M. Reingold 1994-11-01 02:17:53 +00:00
parent 46e07c15d1
commit 9543663083
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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