(calendar-move-hook): New hook.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 4a4690ec3f3be86d1822b09f9394a341c28f855a..a8132311dfb787a0d7388b468ac8f44c07ab1986 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -337,6 +337,18 @@ functions that move by days and weeks."
   :type 'hook
   :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.