80 |
by the cursor position in the displayed three-month calendar. |
by the cursor position in the displayed three-month calendar. |
81 |
D-FILE specifies the file to use as the diary file." |
D-FILE specifies the file to use as the diary file." |
82 |
(interactive |
(interactive |
83 |
(list (if arg (prefix-numeric-value arg) 1) |
(list (prefix-numeric-value current-prefix-arg) |
84 |
(read-file-name "Enter diary file name: " default-directory nil t))) |
(read-file-name "Enter diary file name: " default-directory nil t))) |
85 |
(let ((diary-file d-file)) |
(let ((diary-file d-file)) |
86 |
(view-diary-entries arg))) |
(view-diary-entries arg))) |