From 892e6825a09fabe72e6eb83bd244f9d9a6051855 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Tue, 9 Jun 1998 21:50:58 +0000 Subject: [PATCH] Don't overide default value of diary-file. --- lisp/calendar/diary-lib.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 003deeea27c..eb6f63d189f 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -72,7 +72,7 @@ in the displayed three-month calendar." (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 @@ three-month calendar." (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. -- 2.11.4.GIT