From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 11 Apr 1997 02:34:37 +0000 (+0000)
Subject: (diary-persian-date): Use `date'.
X-Git-Tag: emacs-20.1~2563
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=edbf26946d4c9db29264ad4f78291b324f0e833d;p=emacs.git

(diary-persian-date): Use `date'.
Add  some additional text at the end.
---

diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el
index 89269526be8..99022af061c 100644
--- a/lisp/calendar/cal-persia.el
+++ b/lisp/calendar/cal-persia.el
@@ -199,7 +199,7 @@ Echo Persian date unless NOECHO is t."
 
 (defun diary-persian-date ()
   "Persian calendar equivalent of date diary entry."
- (calendar-persian-date-string (calendar-cursor-to-date t)))
+  (format "Persian date: %s" (calendar-persian-date-string date)))
 
 (provide 'cal-persia)