14684
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 1 ;;; cal-islam.el --- calendar functions for the Islamic calendar.
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 2
20462
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 3 ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 4
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 5 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 6 ;; Keywords: calendar
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 7 ;; Human-Keywords: Islamic calendar, calendar, diary
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 8
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 9 ;; This file is part of GNU Emacs.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 10
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 12 ;; it under the terms of the GNU General Public License as published by
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 13 ;; the Free Software Foundation; either version 2, or (at your option)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 14 ;; any later version.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 15
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 16 ;; GNU Emacs is distributed in the hope that it will be useful,
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 19 ;; GNU General Public License for more details.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 20
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 21 ;; You should have received a copy of the GNU General Public License
14169
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 24 ;; Boston, MA 02111-1307, USA.
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 25
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 26 ;;; Commentary:
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 27
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 28 ;; This collection of functions implements the features of calendar.el and
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 29 ;; diary.el that deal with the Islamic calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 30
20462
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 31 ;; Technical details of all the calendrical calculations can be found in
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 32 ;; ``Calendrical Calculations'' by Nachum Dershowitz and Edward M. Reingold,
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 33 ;; Cambridge University Press (1997).
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 34
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 35 ;; Comments, corrections, and improvements should be sent to
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 36 ;; Edward M. Reingold Department of Computer Science
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 37 ;; (217) 333-6733 University of Illinois at Urbana-Champaign
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 38 ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 39 ;; Urbana, Illinois 61801
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 40
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 41 ;;; Code:
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 42
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 43 (require 'cal-julian)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 44
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 45 (defvar calendar-islamic-month-name-array
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 46 ["Muharram" "Safar" "Rabi I" "Rabi II" "Jumada I" "Jumada II"
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 47 "Rajab" "Sha'ban" "Ramadan" "Shawwal" "Dhu al-Qada" "Dhu al-Hijjah"])
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 48
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 49 (defvar calendar-islamic-epoch (calendar-absolute-from-julian '(7 16 622))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 50 "Absolute date of start of Islamic calendar = August 29, 284 A.D. (Julian).")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 51
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 52 (defun islamic-calendar-leap-year-p (year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 53 "Returns t if YEAR is a leap year on the Islamic calendar."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 54 (memq (% year 30)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 55 (list 2 5 7 10 13 16 18 21 24 26 29)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 56
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 57 (defun islamic-calendar-last-day-of-month (month year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 58 "The last day in MONTH during YEAR on the Islamic calendar."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 59 (cond
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 60 ((memq month (list 1 3 5 7 9 11)) 30)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 61 ((memq month (list 2 4 6 8 10)) 29)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 62 (t (if (islamic-calendar-leap-year-p year) 30 29))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 63
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 64 (defun islamic-calendar-day-number (date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 65 "Return the day number within the year of the Islamic date DATE."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 66 (let* ((month (extract-calendar-month date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 67 (day (extract-calendar-day date)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 68 (+ (* 30 (/ month 2))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 69 (* 29 (/ (1- month) 2))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 70 day)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 71
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 72 (defun calendar-absolute-from-islamic (date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 73 "Absolute date of Islamic DATE.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 74 The absolute date is the number of days elapsed since the (imaginary)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 75 Gregorian date Sunday, December 31, 1 BC."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 76 (let* ((month (extract-calendar-month date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 77 (day (extract-calendar-day date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 78 (year (extract-calendar-year date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 79 (y (% year 30))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 80 (leap-years-in-cycle
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 81 (cond
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 82 ((< y 3) 0) ((< y 6) 1) ((< y 8) 2) ((< y 11) 3) ((< y 14) 4)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 83 ((< y 17) 5) ((< y 19) 6) ((< y 22) 7) ((< y 25) 8) ((< y 27) 9)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 84 (t 10))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 85 (+ (islamic-calendar-day-number date);; days so far this year
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 86 (* (1- year) 354) ;; days in all non-leap years
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 87 (* 11 (/ year 30)) ;; leap days in complete cycles
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 88 leap-years-in-cycle ;; leap days this cycle
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 89 (1- calendar-islamic-epoch)))) ;; days before start of calendar
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 90
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 91 (defun calendar-islamic-from-absolute (date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 92 "Compute the Islamic date (month day year) corresponding to absolute DATE.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 93 The absolute date is the number of days elapsed since the (imaginary)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 94 Gregorian date Sunday, December 31, 1 BC."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 95 (if (< date calendar-islamic-epoch)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 96 (list 0 0 0);; pre-Islamic date
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 97 (let* ((approx (/ (- date calendar-islamic-epoch)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 98 355));; Approximation from below.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 99 (year ;; Search forward from the approximation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 100 (+ approx
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 101 (calendar-sum y approx
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 102 (>= date (calendar-absolute-from-islamic
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 103 (list 1 1 (1+ y))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 104 1)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 105 (month ;; Search forward from Muharram.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 106 (1+ (calendar-sum m 1
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 107 (> date
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 108 (calendar-absolute-from-islamic
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 109 (list m
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 110 (islamic-calendar-last-day-of-month
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 111 m year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 112 year)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 113 1)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 114 (day ;; Calculate the day by subtraction.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 115 (- date
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 116 (1- (calendar-absolute-from-islamic (list month 1 year))))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 117 (list month day year))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 118
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 119 (defun calendar-islamic-date-string (&optional date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 120 "String of Islamic date before sunset of Gregorian DATE.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 121 Returns the empty string if DATE is pre-Islamic.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 122 Defaults to today's date if DATE is not given.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 123 Driven by the variable `calendar-date-display-form'."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 124 (let ((calendar-month-name-array calendar-islamic-month-name-array)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 125 (islamic-date (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 126 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 127 (or date (calendar-current-date))))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 128 (if (< (extract-calendar-year islamic-date) 1)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 129 ""
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 130 (calendar-date-string islamic-date nil t))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 131
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 132 (defun calendar-print-islamic-date ()
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 133 "Show the Islamic calendar equivalent of the date under the cursor."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 134 (interactive)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 135 (let ((i (calendar-islamic-date-string (calendar-cursor-to-date t))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 136 (if (string-equal i "")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 137 (message "Date is pre-Islamic")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 138 (message "Islamic date (until sunset): %s" i))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 139
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 140 (defun calendar-goto-islamic-date (date &optional noecho)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 141 "Move cursor to Islamic DATE; echo Islamic date unless NOECHO is t."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 142 (interactive
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 143 (let* ((today (calendar-current-date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 144 (year (calendar-read
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 145 "Islamic calendar year (>0): "
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 146 '(lambda (x) (> x 0))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 147 (int-to-string
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 148 (extract-calendar-year
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 149 (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 150 (calendar-absolute-from-gregorian today))))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 151 (month-array calendar-islamic-month-name-array)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 152 (completion-ignore-case t)
24184
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 153 (month (cdr (assoc-ignore-case
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 154 (completing-read
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 155 "Islamic calendar month name: "
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 156 (mapcar 'list (append month-array nil))
24184
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 157 nil t)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 158 (calendar-make-alist month-array 1))))
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 159 (last (islamic-calendar-last-day-of-month month year))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 160 (day (calendar-read
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 161 (format "Islamic calendar day (1-%d): " last)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 162 '(lambda (x) (and (< 0 x) (<= x last))))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 163 (list (list month day year))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 164 (calendar-goto-date (calendar-gregorian-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 165 (calendar-absolute-from-islamic date)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 166 (or noecho (calendar-print-islamic-date)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 167
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 168 (defun diary-islamic-date ()
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 169 "Islamic calendar equivalent of date diary entry."
17384
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 170 (let ((i (calendar-islamic-date-string date)))
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 171 (if (string-equal i "")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 172 "Date is pre-Islamic"
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 173 (format "Islamic date (until sunset): %s" i))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 174
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 175 (defun holiday-islamic (month day string)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 176 "Holiday on MONTH, DAY (Islamic) called STRING.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 177 If MONTH, DAY (Islamic) is visible, the value returned is corresponding
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 178 Gregorian date in the form of the list (((month day year) STRING)). Returns
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 179 nil if it is not visible in the current calendar window."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 180 (let* ((islamic-date (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 181 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 182 (list displayed-month 15 displayed-year))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 183 (m (extract-calendar-month islamic-date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 184 (y (extract-calendar-year islamic-date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 185 (date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 186 (if (< m 1)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 187 nil;; Islamic calendar doesn't apply.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 188 (increment-calendar-month m y (- 10 month))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 189 (if (> m 7);; Islamic date might be visible
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 190 (let ((date (calendar-gregorian-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 191 (calendar-absolute-from-islamic (list month day y)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 192 (if (calendar-date-is-visible-p date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 193 (list (list date string))))))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 194
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 195 (defun list-islamic-diary-entries ()
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 196 "Add any Islamic date entries from the diary file to `diary-entries-list'.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 197 Islamic date diary entries must be prefaced by an `islamic-diary-entry-symbol'
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 198 \(normally an `I'). The same diary date forms govern the style of the Islamic
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 199 calendar entries, except that the Islamic month names must be spelled in full.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 200 The Islamic months are numbered from 1 to 12 with Muharram being 1 and 12 being
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 201 Dhu al-Hijjah. If an Islamic date diary entry begins with a
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 202 `diary-nonmarking-symbol', the entry will appear in the diary listing, but will
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 203 not be marked in the calendar. This function is provided for use with the
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 204 `nongregorian-diary-listing-hook'."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 205 (if (< 0 number)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 206 (let ((buffer-read-only nil)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 207 (diary-modified (buffer-modified-p))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 208 (gdate original-date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 209 (mark (regexp-quote diary-nonmarking-symbol)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 210 (calendar-for-loop i from 1 to number do
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 211 (let* ((d diary-date-forms)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 212 (idate (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 213 (calendar-absolute-from-gregorian gdate)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 214 (month (extract-calendar-month idate))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 215 (day (extract-calendar-day idate))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 216 (year (extract-calendar-year idate)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 217 (while d
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 218 (let*
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 219 ((date-form (if (equal (car (car d)) 'backup)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 220 (cdr (car d))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 221 (car d)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 222 (backup (equal (car (car d)) 'backup))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 223 (dayname
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 224 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 225 (calendar-day-name gdate) "\\|"
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 226 (substring (calendar-day-name gdate) 0 3) ".?"))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 227 (calendar-month-name-array
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 228 calendar-islamic-month-name-array)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 229 (monthname
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 230 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 231 "\\*\\|"
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 232 (calendar-month-name month)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 233 (month (concat "\\*\\|0*" (int-to-string month)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 234 (day (concat "\\*\\|0*" (int-to-string day)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 235 (year
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 236 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 237 "\\*\\|0*" (int-to-string year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 238 (if abbreviated-calendar-year
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 239 (concat "\\|" (int-to-string (% year 100)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 240 "")))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 241 (regexp
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 242 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 243 "\\(\\`\\|\^M\\|\n\\)" mark "?"
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 244 (regexp-quote islamic-diary-entry-symbol)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 245 "\\("
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 246 (mapconcat 'eval date-form "\\)\\(")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 247 "\\)"))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 248 (case-fold-search t))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 249 (goto-char (point-min))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 250 (while (re-search-forward regexp nil t)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 251 (if backup (re-search-backward "\\<" nil t))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 252 (if (and (or (char-equal (preceding-char) ?\^M)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 253 (char-equal (preceding-char) ?\n))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 254 (not (looking-at " \\|\^I")))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 255 ;; Diary entry that consists only of date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 256 (backward-char 1)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 257 ;; Found a nonempty diary entry--make it visible and
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 258 ;; add it to the list.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 259 (let ((entry-start (point))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 260 (date-start))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 261 (re-search-backward "\^M\\|\n\\|\\`")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 262 (setq date-start (point))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 263 (re-search-forward "\^M\\|\n" nil t 2)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 264 (while (looking-at " \\|\^I")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 265 (re-search-forward "\^M\\|\n" nil t))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 266 (backward-char 1)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 267 (subst-char-in-region date-start (point) ?\^M ?\n t)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 268 (add-to-diary-list
20268
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 269 gdate
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 270 (buffer-substring-no-properties entry-start (point))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 271 (buffer-substring-no-properties
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 272 (1+ date-start) (1- entry-start)))))))
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 273 (setq d (cdr d))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 274 (setq gdate
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 275 (calendar-gregorian-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 276 (1+ (calendar-absolute-from-gregorian gdate)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 277 (set-buffer-modified-p diary-modified))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 278 (goto-char (point-min))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 279
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 280 (defun mark-islamic-diary-entries ()
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 281 "Mark days in the calendar window that have Islamic date diary entries.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 282 Each entry in diary-file (or included files) visible in the calendar window
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 283 is marked. Islamic date entries are prefaced by a islamic-diary-entry-symbol
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 284 \(normally an `I'). The same diary-date-forms govern the style of the Islamic
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 285 calendar entries, except that the Islamic month names must be spelled in full.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 286 The Islamic months are numbered from 1 to 12 with Muharram being 1 and 12 being
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 287 Dhu al-Hijjah. Islamic date diary entries that begin with a
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 288 diary-nonmarking-symbol will not be marked in the calendar. This function is
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 289 provided for use as part of the nongregorian-diary-marking-hook."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 290 (let ((d diary-date-forms))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 291 (while d
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 292 (let*
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 293 ((date-form (if (equal (car (car d)) 'backup)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 294 (cdr (car d))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 295 (car d)));; ignore 'backup directive
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 296 (dayname (diary-name-pattern calendar-day-name-array))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 297 (monthname
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 298 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 299 (diary-name-pattern calendar-islamic-month-name-array t)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 300 "\\|\\*"))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 301 (month "[0-9]+\\|\\*")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 302 (day "[0-9]+\\|\\*")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 303 (year "[0-9]+\\|\\*")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 304 (l (length date-form))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 305 (d-name-pos (- l (length (memq 'dayname date-form))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 306 (d-name-pos (if (/= l d-name-pos) (+ 2 d-name-pos)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 307 (m-name-pos (- l (length (memq 'monthname date-form))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 308 (m-name-pos (if (/= l m-name-pos) (+ 2 m-name-pos)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 309 (d-pos (- l (length (memq 'day date-form))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 310 (d-pos (if (/= l d-pos) (+ 2 d-pos)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 311 (m-pos (- l (length (memq 'month date-form))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 312 (m-pos (if (/= l m-pos) (+ 2 m-pos)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 313 (y-pos (- l (length (memq 'year date-form))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 314 (y-pos (if (/= l y-pos) (+ 2 y-pos)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 315 (regexp
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 316 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 317 "\\(\\`\\|\^M\\|\n\\)"
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 318 (regexp-quote islamic-diary-entry-symbol)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 319 "\\("
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 320 (mapconcat 'eval date-form "\\)\\(")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 321 "\\)"))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 322 (case-fold-search t))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 323 (goto-char (point-min))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 324 (while (re-search-forward regexp nil t)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 325 (let* ((dd-name
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 326 (if d-name-pos
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 327 (buffer-substring
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 328 (match-beginning d-name-pos)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 329 (match-end d-name-pos))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 330 (mm-name
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 331 (if m-name-pos
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 332 (buffer-substring
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 333 (match-beginning m-name-pos)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 334 (match-end m-name-pos))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 335 (mm (string-to-int
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 336 (if m-pos
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 337 (buffer-substring
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 338 (match-beginning m-pos)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 339 (match-end m-pos))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 340 "")))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 341 (dd (string-to-int
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 342 (if d-pos
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 343 (buffer-substring
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 344 (match-beginning d-pos)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 345 (match-end d-pos))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 346 "")))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 347 (y-str (if y-pos
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 348 (buffer-substring
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 349 (match-beginning y-pos)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 350 (match-end y-pos))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 351 (yy (if (not y-str)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 352 0
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 353 (if (and (= (length y-str) 2)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 354 abbreviated-calendar-year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 355 (let* ((current-y
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 356 (extract-calendar-year
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 357 (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 358 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 359 (calendar-current-date)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 360 (y (+ (string-to-int y-str)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 361 (* 100 (/ current-y 100)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 362 (if (> (- y current-y) 50)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 363 (- y 100)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 364 (if (> (- current-y y) 50)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 365 (+ y 100)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 366 y)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 367 (string-to-int y-str)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 368 (if dd-name
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 369 (mark-calendar-days-named
24184
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 370 (cdr (assoc-ignore-case (substring dd-name 0 3)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 371 (calendar-make-alist
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 372 calendar-day-name-array
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 373 0
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 374 '(lambda (x) (substring x 0 3))))))
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 375 (if mm-name
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 376 (if (string-equal mm-name "*")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 377 (setq mm 0)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 378 (setq mm
24184
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 379 (cdr (assoc-ignore-case
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 380 mm-name
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 381 (calendar-make-alist
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 382 calendar-islamic-month-name-array))))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 383 (mark-islamic-calendar-date-pattern mm dd yy)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 384 (setq d (cdr d)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 385
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 386 (defun mark-islamic-calendar-date-pattern (month day year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 387 "Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 388 A value of 0 in any position is a wildcard."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 389 (save-excursion
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 390 (set-buffer calendar-buffer)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 391 (if (and (/= 0 month) (/= 0 day))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 392 (if (/= 0 year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 393 ;; Fully specified Islamic date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 394 (let ((date (calendar-gregorian-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 395 (calendar-absolute-from-islamic
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 396 (list month day year)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 397 (if (calendar-date-is-visible-p date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 398 (mark-visible-calendar-date date)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 399 ;; Month and day in any year--this taken from the holiday stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 400 (let* ((islamic-date (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 401 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 402 (list displayed-month 15 displayed-year))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 403 (m (extract-calendar-month islamic-date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 404 (y (extract-calendar-year islamic-date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 405 (date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 406 (if (< m 1)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 407 nil;; Islamic calendar doesn't apply.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 408 (increment-calendar-month m y (- 10 month))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 409 (if (> m 7);; Islamic date might be visible
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 410 (let ((date (calendar-gregorian-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 411 (calendar-absolute-from-islamic
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 412 (list month day y)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 413 (if (calendar-date-is-visible-p date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 414 (mark-visible-calendar-date date)))))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 415 ;; Not one of the simple cases--check all visible dates for match.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 416 ;; Actually, the following code takes care of ALL of the cases, but
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 417 ;; it's much too slow to be used for the simple (common) cases.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 418 (let ((m displayed-month)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 419 (y displayed-year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 420 (first-date)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 421 (last-date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 422 (increment-calendar-month m y -1)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 423 (setq first-date
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 424 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 425 (list m 1 y)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 426 (increment-calendar-month m y 2)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 427 (setq last-date
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 428 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 429 (list m (calendar-last-day-of-month m y) y)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 430 (calendar-for-loop date from first-date to last-date do
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 431 (let* ((i-date (calendar-islamic-from-absolute date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 432 (i-month (extract-calendar-month i-date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 433 (i-day (extract-calendar-day i-date))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 434 (i-year (extract-calendar-year i-date)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 435 (and (or (zerop month)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 436 (= month i-month))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 437 (or (zerop day)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 438 (= day i-day))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 439 (or (zerop year)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 440 (= year i-year))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 441 (mark-visible-calendar-date
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 442 (calendar-gregorian-from-absolute date)))))))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 443
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 444 (defun insert-islamic-diary-entry (arg)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 445 "Insert a diary entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 446 For the Islamic date corresponding to the date indicated by point.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 447 Prefix arg will make the entry nonmarking."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 448 (interactive "P")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 449 (let* ((calendar-month-name-array calendar-islamic-month-name-array))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 450 (make-diary-entry
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 451 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 452 islamic-diary-entry-symbol
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 453 (calendar-date-string
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 454 (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 455 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 456 (calendar-cursor-to-date t)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 457 nil t))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 458 arg)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 459
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 460 (defun insert-monthly-islamic-diary-entry (arg)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 461 "Insert a monthly diary entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 462 For the day of the Islamic month corresponding to the date indicated by point.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 463 Prefix arg will make the entry nonmarking."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 464 (interactive "P")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 465 (let* ((calendar-date-display-form
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 466 (if european-calendar-style '(day " * ") '("* " day )))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 467 (calendar-month-name-array calendar-islamic-month-name-array))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 468 (make-diary-entry
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 469 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 470 islamic-diary-entry-symbol
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 471 (calendar-date-string
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 472 (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 473 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 474 (calendar-cursor-to-date t)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 475 arg)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 476
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 477 (defun insert-yearly-islamic-diary-entry (arg)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 478 "Insert an annual diary entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 479 For the day of the Islamic year corresponding to the date indicated by point.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 480 Prefix arg will make the entry nonmarking."
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 481 (interactive "P")
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 482 (let* ((calendar-date-display-form
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 483 (if european-calendar-style
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 484 '(day " " monthname)
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 485 '(monthname " " day)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 486 (calendar-month-name-array calendar-islamic-month-name-array))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 487 (make-diary-entry
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 488 (concat
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 489 islamic-diary-entry-symbol
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 490 (calendar-date-string
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 491 (calendar-islamic-from-absolute
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 492 (calendar-absolute-from-gregorian
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 493 (calendar-cursor-to-date t)))))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 494 arg)))
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 495
14684
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 496 (provide 'cal-islam)
13053
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 497
14684
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 498 ;;; cal-islam.el ends here