# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 875118579 0
# Node ID 927a8710de05d6bcf81586b7bd5a3a1517de99af
# Parent  620ed2f8250e480811a3c01c7fe8d2238403a73a
(cal-tex-mouse-filofax-daily): New function.
(cal-tex-mouse-filofax): Add menu item for it.

diff -r 620ed2f8250e -r 927a8710de05 lisp/calendar/cal-menu.el
--- 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)" .