From c21eb13de8bc9853f12aacb57a68fafa76f17e40 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Fri, 29 Mar 1996 17:47:01 +0000 Subject: [PATCH] Add references to Persian calendar. --- lisp/calendar/cal-menu.el | 6 +++++- lisp/calendar/calendar.el | 21 ++++++++++++++++++--- 2 files changed, 23 insertions(+), 4 deletions(-) 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) -- 2.39.2