Mercurial > hg > xemacs-beta
diff lisp/calendar/calendar.el @ 74:54cc21c15cbb r20-0b32
Import from CVS: tag r20-0b32
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:04:33 +0200 |
parents | 131b0175ea99 |
children | 34a5b81f86ba |
line wrap: on
line diff
--- a/lisp/calendar/calendar.el Mon Aug 13 09:03:47 2007 +0200 +++ b/lisp/calendar/calendar.el Mon Aug 13 09:04:33 2007 +0200 @@ -626,8 +626,6 @@ (defvar calendar-mark-ring nil) ;;;###autoload -(put 'general-holidays 'risky-local-variable t) -;;;###autoload (defvar general-holidays '((holiday-fixed 1 1 "New Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") @@ -650,21 +648,23 @@ See the documentation for `calendar-holidays' for details.") ;;;###autoload -(put 'local-holidays 'risky-local-variable t) +(put 'general-holidays 'risky-local-variable t) + ;;;###autoload (defvar local-holidays nil "*Local holidays. See the documentation for `calendar-holidays' for details.") ;;;###autoload -(put 'other-holidays 'risky-local-variable t) +(put 'local-holidays 'risky-local-variable t) ;;;###autoload (defvar other-holidays nil "*User defined holidays. See the documentation for `calendar-holidays' for details.") ;;;###autoload -(put 'hebrew-holidays-1 'risky-local-variable t) +(put 'other-holidays 'risky-local-variable t) + ;;;###autoload (defvar hebrew-holidays-1 '((holiday-rosh-hashanah-etc) @@ -684,7 +684,8 @@ 21))) "\"Tal Umatar\" (evening)")))) ;;;###autoload -(put 'hebrew-holidays-2 'risky-local-variable t) +(put 'hebrew-holidays-1 'risky-local-variable t) + ;;;###autoload (defvar hebrew-holidays-2 '((if all-hebrew-calendar-holidays @@ -706,7 +707,8 @@ (holiday-hebrew 11 15 "Tu B'Shevat")))) ;;;###autoload -(put 'hebrew-holidays-3 'risky-local-variable t) +(put 'hebrew-holidays-2 'risky-local-variable t) + ;;;###autoload (defvar hebrew-holidays-3 '((if all-hebrew-calendar-holidays @@ -737,10 +739,10 @@ (day (extract-calendar-day s-s))) day)) "Shabbat Shirah")))) +;;;###autoload +(put 'hebrew-holidays-3 'risky-local-variable t) ;;;###autoload -(put 'hebrew-holidays-4 'risky-local-variable t) -;;;###autoload (defvar hebrew-holidays-4 '((holiday-passover-etc) (if (and all-hebrew-calendar-holidays @@ -756,17 +758,18 @@ (holiday-julian 3 26 "Kiddush HaHamah")) (if all-hebrew-calendar-holidays (holiday-tisha-b-av-etc)))) +;;;###autoload +(put 'hebrew-holidays-4 'risky-local-variable t) ;;;###autoload -(put 'hebrew-holidays 'risky-local-variable t) -;;;###autoload (defvar hebrew-holidays (append hebrew-holidays-1 hebrew-holidays-2 hebrew-holidays-3 hebrew-holidays-4) "*Jewish holidays. See the documentation for `calendar-holidays' for details.") ;;;###autoload -(put 'christian-holidays 'risky-local-variable t) +(put 'hebrew-holidays 'risky-local-variable t) + ;;;###autoload (defvar christian-holidays '((if all-christian-calendar-holidays @@ -785,7 +788,8 @@ See the documentation for `calendar-holidays' for details.") ;;;###autoload -(put 'islamic-holidays 'risky-local-variable t) +(put 'christian-holidays 'risky-local-variable t) + ;;;###autoload (defvar islamic-holidays '((holiday-islamic @@ -818,7 +822,8 @@ See the documentation for `calendar-holidays' for details.") ;;;###autoload -(put 'solar-holidays 'risky-local-variable t) +(put 'islamic-holidays 'risky-local-variable t) + ;;;###autoload (defvar solar-holidays '((if (fboundp 'atan) @@ -848,7 +853,9 @@ See the documentation for `calendar-holidays' for details.") ;;;###autoload -(put 'calendar-holidays 'risky-local-variable t) +(put 'solar-holidays 'risky-local-variable t) + +;;;###autoload (defvar calendar-holidays (append general-holidays local-holidays other-holidays christian-holidays hebrew-holidays islamic-holidays @@ -940,6 +947,9 @@ (((2 6 1989) \"New Moon\") ((2 12 1989) \"First Quarter Moon\") ... ).") +;;;###autoload +(put 'calendar-holidays 'risky-local-variable t) + (defconst calendar-buffer "*Calendar*" "Name of the buffer used for the calendar.")