From: Glenn Morris <rgm@gnu.org>
Date: Mon, 20 Dec 2004 18:09:22 +0000 (+0000)
Subject: (view-other-diary-entries): Use current-prefix-arg in interactive spec.
X-Git-Tag: ttn-vms-21-2-B4~3198
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b554221139bc71cf608fa56212ec99a971c1c3d;p=emacs.git

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

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
 by the cursor position in the displayed three-month calendar.
 D-FILE specifies the file to use as the diary file."
   (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)))
   (let ((diary-file d-file))
     (view-diary-entries arg)))