From: Edward M. Reingold <reingold@emr.cs.iit.edu>
Date: Fri, 29 Mar 1996 17:47:01 +0000 (+0000)
Subject: Add references to Persian calendar.
X-Git-Tag: emacs-19.34~945
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c21eb13de8bc9853f12aacb57a68fafa76f17e40;p=emacs.git

Add references to Persian calendar.
---

diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index 614332526bc..e058857a462 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -112,6 +112,8 @@
   '("Julian Date" . calendar-goto-julian-date))
 (define-key calendar-mode-map [menu-bar goto islamic]
   '("Islamic Date" . calendar-goto-islamic-date))
+(define-key calendar-mode-map [menu-bar goto persian]
+  '("Persian Date" . calendar-goto-persian-date))
 (define-key calendar-mode-map [menu-bar goto hebrew]
   '("Hebrew Date" . calendar-goto-hebrew-date))
 (define-key calendar-mode-map [menu-bar goto astro]
@@ -395,7 +397,9 @@ The output is in landscape format, one month to a page."
               (format "Astronomical (Julian) day number (after noon UTC): %s"
                            (calendar-astro-date-string date)))
              (list (format "Hebrew date (before sunset): %s"
-                           (calendar-hebrew-date-string date))))
+                           (calendar-hebrew-date-string date)))
+             (list (format "Persian date: %s"
+                           (calendar-persian-date-string date))))
             (let ((i (calendar-islamic-date-string date)))
               (if (not (string-equal i ""))
                   (list (list (format "Islamic date (before sunset): %s" i)))))
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 58cf6c145a8..bb1710f917d 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -61,6 +61,7 @@
 ;;       cal-mayan.el                  Mayan calendars
 ;;       cal-menu.el                   Menu support
 ;;       cal-move.el                   Movement in the calendar
+;;       cal-persian.el                Perisan calendar
 ;;       cal-tex.el                    Calendars in LaTeX
 ;;       cal-x.el                      X-windows dedicated frame functions
 ;;       diary.el                      Diary functions
@@ -335,9 +336,9 @@ causes the diary entry \"Vacation\" to appear from November 1 through November
 `diary-cyclic', `diary-day-of-year', `diary-iso-date', `diary-french-date',
 `diary-hebrew-date', `diary-islamic-date', `diary-mayan-date',
 `diary-chinese-date', `diary-coptic-date', `diary-ethiopic-date',
-`diary-yahrzeit', `diary-sunrise-sunset', `diary-phases-of-moon',
-`diary-parasha', `diary-omer', `diary-rosh-hodesh', and
-`diary-sabbath-candles'.  See the documentation for the function
+`diary-persian-date', `diary-yahrzeit', `diary-sunrise-sunset',
+`diary-phases-of-moon', `diary-parasha', `diary-omer', `diary-rosh-hodesh',
+and `diary-sabbath-candles'.  See the documentation for the function
 `list-sexp-diary-entries' for more details.
 
 Diary entries based on the Hebrew and/or the Islamic calendar are also
@@ -1393,6 +1394,18 @@ Driven by the variable `calendar-date-display-form'."
   "String of Ethiopic date of Gregorian date."
   t)
 
+(autoload 'calendar-goto-persian-date "cal-persian"
+   "Move cursor to Persian date date."
+   t)
+
+(autoload 'calendar-print-persian-date "cal-persian"
+ "Show the Persian date equivalents of date."
+ t)
+
+(autoload 'calendar-persian-date-string "cal-persian"
+  "String of Persian date of Gregorian date."
+  t)
+
 (autoload 'show-all-diary-entries "diary-lib"
   "Show all of the diary entries in the diary file.
 This function gets rid of the selective display of the diary file so that
@@ -1708,6 +1721,7 @@ the inserted text.  Value is always t."
   (define-key calendar-mode-map "gC"  'calendar-goto-chinese-date)
   (define-key calendar-mode-map "gk"  'calendar-goto-coptic-date)
   (define-key calendar-mode-map "ge"  'calendar-goto-ethiopic-date)
+  (define-key calendar-mode-map "gp"  'calendar-goto-persian-date)
   (define-key calendar-mode-map "gc"  'calendar-goto-iso-date)
   (define-key calendar-mode-map "gf"  'calendar-goto-french-date)
   (define-key calendar-mode-map "gml"  'calendar-goto-mayan-long-count-date)
@@ -1736,6 +1750,7 @@ the inserted text.  Value is always t."
   (define-key calendar-mode-map "pC"  'calendar-print-chinese-date)
   (define-key calendar-mode-map "pk"  'calendar-print-coptic-date)
   (define-key calendar-mode-map "pe"  'calendar-print-ethiopic-date)
+  (define-key calendar-mode-map "pp"  'calendar-print-persian-date)
   (define-key calendar-mode-map "pc"  'calendar-print-iso-date)
   (define-key calendar-mode-map "pj"  'calendar-print-julian-date)
   (define-key calendar-mode-map "pa"  'calendar-print-astro-day-number)