Commit 3b554221 authored by Glenn Morris's avatar Glenn Morris

(view-other-diary-entries): Use current-prefix-arg in interactive spec.

parent 8f449c3a
...@@ -80,7 +80,7 @@ Searches for entries that match ARG days, starting with the date indicated ...@@ -80,7 +80,7 @@ Searches for entries that match ARG days, starting with the date indicated
by the cursor position in the displayed three-month calendar. by the cursor position in the displayed three-month calendar.
D-FILE specifies the file to use as the diary file." D-FILE specifies the file to use as the diary file."
(interactive (interactive
(list (if arg (prefix-numeric-value arg) 1) (list (prefix-numeric-value current-prefix-arg)
(read-file-name "Enter diary file name: " default-directory nil t))) (read-file-name "Enter diary file name: " default-directory nil t)))
(let ((diary-file d-file)) (let ((diary-file d-file))
(view-diary-entries arg))) (view-diary-entries arg)))
......
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