diff options
| author | Glenn Morris | 2004-12-20 18:09:22 +0000 |
|---|---|---|
| committer | Glenn Morris | 2004-12-20 18:09:22 +0000 |
| commit | 3b554221139bc71cf608fa56212ec99a971c1c3d (patch) | |
| tree | f828412e59e15f0705aba674303153b1b90add25 | |
| parent | 8f449c3afd596c3564eeb9f96e29c406163020d5 (diff) | |
| download | emacs-3b554221139bc71cf608fa56212ec99a971c1c3d.tar.gz emacs-3b554221139bc71cf608fa56212ec99a971c1c3d.zip | |
(view-other-diary-entries): Use current-prefix-arg in interactive spec.
| -rw-r--r-- | lisp/calendar/diary-lib.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 679c4b991b6..fdade091ab2 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el | |||
| @@ -80,7 +80,7 @@ Searches for entries that match ARG days, starting with the date indicated | |||
| 80 | by the cursor position in the displayed three-month calendar. | 80 | by the cursor position in the displayed three-month calendar. |
| 81 | D-FILE specifies the file to use as the diary file." | 81 | D-FILE specifies the file to use as the diary file." |
| 82 | (interactive | 82 | (interactive |
| 83 | (list (if arg (prefix-numeric-value arg) 1) | 83 | (list (prefix-numeric-value current-prefix-arg) |
| 84 | (read-file-name "Enter diary file name: " default-directory nil t))) | 84 | (read-file-name "Enter diary file name: " default-directory nil t))) |
| 85 | (let ((diary-file d-file)) | 85 | (let ((diary-file d-file)) |
| 86 | (view-diary-entries arg))) | 86 | (view-diary-entries arg))) |