Commit 892e6825 authored by Edward M. Reingold's avatar Edward M. Reingold

Don't overide default value of diary-file.

parent 51352796
...@@ -72,7 +72,7 @@ in the displayed three-month calendar." ...@@ -72,7 +72,7 @@ in the displayed three-month calendar."
(error "Diary file is not readable!")) (error "Diary file is not readable!"))
(error "You don't have a diary file!")))) (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. "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 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 days starting with the date indicated by the cursor position in the displayed
...@@ -81,9 +81,9 @@ three-month calendar." ...@@ -81,9 +81,9 @@ three-month calendar."
(list (cond ((null current-prefix-arg) 1) (list (cond ((null current-prefix-arg) 1)
((listp current-prefix-arg) (car current-prefix-arg)) ((listp current-prefix-arg) (car current-prefix-arg))
(t current-prefix-arg)) (t current-prefix-arg))
(setq diary-file (read-file-name "Enter diary file name: " (read-file-name "Enter diary file name: " default-directory nil t)))
default-directory nil t)))) (let ((diary-file d-file))
(view-diary-entries arg)) (view-diary-entries arg)))
(autoload 'check-calendar-holidays "holidays" (autoload 'check-calendar-holidays "holidays"
"Check the list of holidays for any that occur on DATE. "Check the list of holidays for any that occur on DATE.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment