# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 935853519 0
# Node ID 3ab4413f754965e650cbbcb9fcf007028ee9f0cc
# Parent  d414a697a6466f95fe25ecd9f5ba55b17c59146b
(calendar-move-hook): New hook.

diff -r d414a697a646 -r 3ab4413f7549 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Sat Aug 28 15:16:55 1999 +0000
+++ b/lisp/calendar/calendar.el	Sat Aug 28 15:18:39 1999 +0000
@@ -338,6 +338,18 @@
   :group 'calendar-hooks)
 
 ;;;###autoload
+(defcustom calendar-move-hook nil
+  "*List of functions called whenever the cursor moves in the calendar.
+
+For example, 
+
+  (add-hook 'calendar-move-hook (lambda () (view-diary-entries 1)))
+
+redisplays the diary for whatever date the cursor is moved to."
+  :type 'hook
+  :group 'calendar-hooks)
+
+;;;###autoload
 (defcustom diary-file "~/diary"
   "*Name of the file in which one's personal diary of dates is kept.