diff options
author | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1998-06-09 22:27:59 +0000 |
---|---|---|
committer | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1998-06-09 22:27:59 +0000 |
commit | 747871db896d2743e42ebbbb4acf21ece4835364 (patch) | |
tree | 88386d2e9790d4c72c16ab46b5149e9e5c736968 | |
parent | 7bc6b3cc7dbdee6f14f6a35626eb63a8eef21f29 (diff) | |
download | emacs-747871db896d2743e42ebbbb4acf21ece4835364.tar.gz |
Minor fix to previous change.
-rw-r--r-- | lisp/calendar/cal-menu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 614adace202..7da405cc8b8 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -302,7 +302,7 @@ ERROR is t, otherwise just returns nil." (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 @@ ERROR is t, otherwise just returns nil." (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))) |