diff options
| author | Edward M. Reingold | 1998-06-09 22:27:59 +0000 |
|---|---|---|
| committer | Edward M. Reingold | 1998-06-09 22:27:59 +0000 |
| commit | f20d548a4857d585d5780e0ee2ee54eef988a5f3 (patch) | |
| tree | 01efbd9a71278cb08b65eb1d16955aae91905372 | |
| parent | 6c8a48a6d00136970094b4cfbed513ea58b776ae (diff) | |
| download | emacs-f20d548a4857d585d5780e0ee2ee54eef988a5f3.tar.gz emacs-f20d548a4857d585d5780e0ee2ee54eef988a5f3.zip | |
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." | |||
| 302 | (let* ((date (calendar-event-to-date)) | 302 | (let* ((date (calendar-event-to-date)) |
| 303 | (l (mapcar '(lambda (x) (list (car (cdr x)))) | 303 | (l (mapcar '(lambda (x) (list (car (cdr x)))) |
| 304 | (let ((diary-list-include-blanks nil) | 304 | (let ((diary-list-include-blanks nil) |
| 305 | (diary-display-hook nil)) | 305 | (diary-display-hook 'ignore)) |
| 306 | (list-diary-entries date 1)))) | 306 | (list-diary-entries date 1)))) |
| 307 | (selection | 307 | (selection |
| 308 | (x-popup-menu | 308 | (x-popup-menu |
| @@ -320,7 +320,7 @@ ERROR is t, otherwise just returns nil." | |||
| 320 | (let* ((date (calendar-event-to-date)) | 320 | (let* ((date (calendar-event-to-date)) |
| 321 | (l (mapcar '(lambda (x) (list (car (cdr x)))) | 321 | (l (mapcar '(lambda (x) (list (car (cdr x)))) |
| 322 | (let ((diary-list-include-blanks nil) | 322 | (let ((diary-list-include-blanks nil) |
| 323 | (diary-display-hook nil) | 323 | (diary-display-hook 'ignore) |
| 324 | (diary-file (read-file-name | 324 | (diary-file (read-file-name |
| 325 | "Enter diary file name: " | 325 | "Enter diary file name: " |
| 326 | default-directory nil t))) | 326 | default-directory nil t))) |