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.")