# HG changeset patch
# User Edward M. Reingold <reingold@emr.cs.iit.edu>
# Date 897431279 0
# Node ID 80fbcba480dcbd489c4b22d9e2d84d3b80e46297
# Parent  be2f536a1358f8589df2c8b91de2b1909c9afe57
Minor fix to previous change.

diff -r be2f536a1358 -r 80fbcba480dc lisp/calendar/cal-menu.el
--- a/lisp/calendar/cal-menu.el	Tue Jun 09 22:03:14 1998 +0000
+++ b/lisp/calendar/cal-menu.el	Tue Jun 09 22:27:59 1998 +0000
@@ -302,7 +302,7 @@
   (let* ((date (calendar-event-to-date))
          (l (mapcar '(lambda (x) (list (car (cdr x))))
                     (let ((diary-list-include-blanks nil)
-                          (diary-display-hook nil))
+                          (diary-display-hook 'ignore))
                       (list-diary-entries date 1))))
          (selection
           (x-popup-menu
@@ -320,7 +320,7 @@
   (let* ((date (calendar-event-to-date))
          (l (mapcar '(lambda (x) (list (car (cdr x))))
                     (let ((diary-list-include-blanks nil)
-                          (diary-display-hook nil)
+                          (diary-display-hook 'ignore)
                           (diary-file (read-file-name
                                        "Enter diary file name: "
                                        default-directory nil t)))