Mercurial > emacs
changeset 22412:6fdc14d2b071
Don't overide default value of diary-file.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Tue, 09 Jun 1998 21:50:58 +0000 |
| parents | 6e7a11ac850d |
| children | be2f536a1358 |
| files | lisp/calendar/diary-lib.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/diary-lib.el Tue Jun 09 20:12:44 1998 +0000 +++ b/lisp/calendar/diary-lib.el Tue Jun 09 21:50:58 1998 +0000 @@ -72,7 +72,7 @@ (error "Diary file is not readable!")) (error "You don't have a diary file!")))) -(defun view-other-diary-entries (arg diary-file) +(defun view-other-diary-entries (arg d-file) "Prepare and display buffer of diary entries from an alternative diary file. Prompts for a file name and searches that file for entries that match ARG days starting with the date indicated by the cursor position in the displayed @@ -81,9 +81,9 @@ (list (cond ((null current-prefix-arg) 1) ((listp current-prefix-arg) (car current-prefix-arg)) (t current-prefix-arg)) - (setq diary-file (read-file-name "Enter diary file name: " - default-directory nil t)))) - (view-diary-entries arg)) + (read-file-name "Enter diary file name: " default-directory nil t))) + (let ((diary-file d-file)) + (view-diary-entries arg))) (autoload 'check-calendar-holidays "holidays" "Check the list of holidays for any that occur on DATE.