# HG changeset patch
# User Edward M. Reingold <reingold@emr.cs.iit.edu>
# Date 897429058 0
# Node ID 6fdc14d2b07191b557e78087ce265e8b3929bd0c
# Parent  6e7a11ac850daedabb53f12c381d5e06412086e7
Don't overide default value of diary-file.

diff -r 6e7a11ac850d -r 6fdc14d2b071 lisp/calendar/diary-lib.el
--- 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.