Mercurial > emacs
changeset 19975:927a8710de05
(cal-tex-mouse-filofax-daily): New function.
(cal-tex-mouse-filofax): Add menu item for it.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 24 Sep 1997 16:29:39 +0000 |
| parents | 620ed2f8250e |
| children | 81065d2158f9 |
| files | lisp/calendar/cal-menu.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-menu.el Wed Sep 24 16:29:05 1997 +0000 +++ b/lisp/calendar/cal-menu.el Wed Sep 24 16:29:39 1997 +0000 @@ -308,6 +308,13 @@ (calendar-mouse-goto-date (calendar-event-to-date)) (cal-tex-cursor-week-monday nil))) +(defun cal-tex-mouse-filofax-daily () + "Day-per-page Filofax calendar for week indicated by cursor." + (interactive) + (save-excursion + (calendar-mouse-goto-date (calendar-event-to-date)) + (cal-tex-cursor-filofax-daily nil))) + (defun cal-tex-mouse-filofax-2week () "One page Filofax calendar for week indicated by cursor." (interactive) @@ -470,6 +477,8 @@ (list (calendar-date-string date t nil) (list "" + '("Filofax Daily (one-day-per-page)" . + cal-tex-mouse-filofax-daily) '("Filofax Weekly (2-weeks-at-a-glance)" . cal-tex-mouse-filofax-2week) '("Filofax Weekly (week-at-a-glance)" .