CVS update by jmiller packages/xemacs-packages/calendar, cal-dst.el,
diary-lib.el ...
xemacs-cvs at xemacs.org
xemacs-cvs at xemacs.org
Tue Jul 10 18:52:29 EDT 2007
User: jmiller
Date: 07/07/11 00:52:29
Modified: packages/xemacs-packages/calendar ChangeLog cal-coptic.el
cal-dst.el cal-html.el cal-tex.el calendar.el
diary-lib.el icalendar.el
Log:
committing fixes for bugs found by Dr. Volker Zell
Revision Changes Path
1.51 +11 -0 XEmacs/packages/xemacs-packages/calendar/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/ChangeLog,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -p -r1.50 -r1.51
--- ChangeLog 2007/04/16 05:34:38 1.50
+++ ChangeLog 2007/07/10 22:52:24 1.51
@@ -1,3 +1,14 @@
+2007-07-10 Jeff Miller <jeff.miller at xemacs.org>
+
+ * cal-coptic.el (coptic-prompt-for-date): fix typo
+ (cal-assoc-ignore -> cal-assoc-string)
+ * cal-dst.el, cal-html.el,
+ cal-tex.el, icalendar.el: indentation fixes.
+
+ * calendar.el: added autoload for calendar-goto-bahai-date
+ * diary-lib.el (diary-mode): use make-hook-local to really make
+ after-save-hook buffer local
+
2007-04-16 Norbert Koch <viteno at xemacs.org>
* Makefile (VERSION): XEmacs package 1.32 released.
1.7 +1 -1 XEmacs/packages/xemacs-packages/calendar/cal-coptic.el
Index: cal-coptic.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/cal-coptic.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- cal-coptic.el 2007/04/16 02:12:24 1.6
+++ cal-coptic.el 2007/07/10 22:52:24 1.7
@@ -158,7 +158,7 @@ Echo Coptic date unless NOECHO is t."
(calendar-absolute-from-gregorian today))))))
(completion-ignore-case t)
;; XEmacs change, we don't have assoc-string
- (month (cdr (cal-assoc-ignore
+ (month (cdr (cal-assoc-string
(completing-read
(format "%s calendar month name: " coptic-name)
(mapcar 'list
1.10 +3 -3 XEmacs/packages/xemacs-packages/calendar/cal-dst.el
Index: cal-dst.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/cal-dst.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- cal-dst.el 2007/04/16 02:12:24 1.9
+++ cal-dst.el 2007/07/10 22:52:24 1.10
@@ -50,9 +50,9 @@ Otherwise assume the next two transition
current date apply to all years. This is faster, but not always
correct, since the dates of daylight saving transitions sometimes
change."
-:type 'boolean
-:version "22.1"
-:group 'calendar)
+:type 'boolean
+:version "22.1"
+:group 'calendar)
(defvar calendar-current-time-zone-cache nil
"Cache for result of `calendar-current-time-zone'.")
1.3 +12 -12 XEmacs/packages/xemacs-packages/calendar/cal-html.el
Index: cal-html.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/cal-html.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- cal-html.el 2007/04/16 02:12:25 1.2
+++ cal-html.el 2007/07/10 22:52:24 1.3
@@ -37,30 +37,30 @@
(defgroup calendar-html nil
"Options for HTML calendars."
-:prefix "cal-html-"
-:group 'calendar)
+:prefix "cal-html-"
+:group 'calendar)
(defcustom cal-html-directory "~/public_html"
"Directory for HTML pages generated by cal-html."
-:type 'string
-:group 'calendar-html)
+:type 'string
+:group 'calendar-html)
(defcustom cal-html-print-day-number-flag nil
"Non-nil means print the day-of-the-year number in the monthly cal-html page."
-:type 'boolean
-:group 'calendar-html)
+:type 'boolean
+:group 'calendar-html)
(defcustom cal-html-year-index-cols 3
"Number of columns in the cal-html yearly index page."
-:type 'integer
-:group 'calendar-html)
+:type 'integer
+:group 'calendar-html)
(defcustom cal-html-day-abbrev-array
(calendar-abbrev-construct calendar-day-abbrev-array
calendar-day-name-array)
"Array of seven strings for abbreviated day names (starting with Sunday)."
-:type '(vector string string string string string string string)
-:group 'calendar-html)
+:type '(vector string string string string string string string)
+:group 'calendar-html)
(defcustom cal-html-css-default
(concat
@@ -80,8 +80,8 @@
" SPAN.BLOCK { color: #048; font-style: italic; }\n"
"</STYLE>\n\n")
"Default cal-html css style. You can override this with a \"cal.css\" file."
-:type 'string
-:group 'calendar-html)
+:type 'string
+:group 'calendar-html)
;;; End customizable variables.
1.8 +16 -15 XEmacs/packages/xemacs-packages/calendar/cal-tex.el
Index: cal-tex.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/cal-tex.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- cal-tex.el 2007/04/16 02:12:26 1.7
+++ cal-tex.el 2007/07/10 22:52:24 1.8
@@ -79,8 +79,8 @@ If finding the holidays is too slow, set
(defcustom cal-tex-rules nil
"*If t, pages will be ruled in some styles."
-:type 'boolean
-:group 'calendar-tex)
+:type 'boolean
+:group 'calendar-tex)
(defcustom cal-tex-daily-string
'(let* ((year (extract-calendar-year date))
@@ -127,9 +127,9 @@ will put the Hebrew date at the bottom o
"A string giving extra LaTeX commands to insert in the calendar preamble.
For example, to include extra packages:
\"\\\\usepackage{foo}\\n\\\\usepackage{bar}\\n\"."
-:type 'string
-:group 'calendar-tex
-:version "22.1")
+:type 'string
+:group 'calendar-tex
+:version "22.1")
(defcustom cal-tex-hook nil
"*List of functions called after any LaTeX calendar buffer is generated.
@@ -137,28 +137,28 @@ You can use this to do postprocessing on
characters with diacritical marks to their LaTeX equivalents, use
(add-hook 'cal-tex-hook
'(lambda () (iso-iso2tex (point-min) (point-max))))"
-:type 'hook
-:group 'calendar-tex)
+:type 'hook
+:group 'calendar-tex)
(defcustom cal-tex-year-hook nil
"*List of functions called after a LaTeX year calendar buffer is generated."
-:type 'hook
-:group 'calendar-tex)
+:type 'hook
+:group 'calendar-tex)
(defcustom cal-tex-month-hook nil
"*List of functions called after a LaTeX month calendar buffer is generated."
-:type 'hook
-:group 'calendar-tex)
+:type 'hook
+:group 'calendar-tex)
(defcustom cal-tex-week-hook nil
"*List of functions called after a LaTeX week calendar buffer is generated."
-:type 'hook
-:group 'calendar-tex)
+:type 'hook
+:group 'calendar-tex)
(defcustom cal-tex-daily-hook nil
"*List of functions called after a LaTeX daily calendar buffer is generated."
-:type 'hook
-:group 'calendar-tex)
+:type 'hook
+:group 'calendar-tex)
;;;
;;; Definitions for LaTeX code
@@ -905,6 +905,7 @@ Holidays are included if `cal-tex-holida
(insert ", ")
(cal-tex-large-bf (cal-tex-month-name month))
(insert " ")
+
(cal-tex-large-bf (number-to-string day))
(if (not (string= "" (cal-tex-latexify-list holidays date)))
(progn
1.16 +4 -0 XEmacs/packages/xemacs-packages/calendar/calendar.el
Index: calendar.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/calendar.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -p -r1.15 -r1.16
--- calendar.el 2007/04/16 02:12:26 1.15
+++ calendar.el 2007/07/10 22:52:24 1.16
@@ -1862,6 +1862,10 @@ Driven by the variable `calendar-date-di
"Move cursor to Persian date."
t)
+(autoload 'calendar-goto-bahai-date "cal-bahai"
+ "Move cursor to Baha'i date."
+ t)
+
(autoload 'calendar-print-persian-date "cal-persia"
"Show the Persian date equivalents of date."
t)
1.10 +4 -0 XEmacs/packages/xemacs-packages/calendar/diary-lib.el
Index: diary-lib.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/diary-lib.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- diary-lib.el 2007/04/16 02:12:27 1.9
+++ diary-lib.el 2007/07/10 22:52:24 1.10
@@ -1922,6 +1922,10 @@ Prefix arg will make the entry nonmarkin
(set (make-local-variable 'font-lock-defaults)
'(diary-font-lock-keywords t))
(add-to-invisibility-spec '(diary . nil))
+ ;; XEmacs change - the "local" option for add-hook does not work the
+ ;; same as Emacs, we need to use make-local-hook to make the hook
+ ;; local.
+ (make-local-hook 'after-save-hook)
(add-hook 'after-save-hook 'diary-redraw-calendar nil t)
(if diary-header-line-flag
(setq header-line-format diary-header-line-format)))
1.4 +18 -18 XEmacs/packages/xemacs-packages/calendar/icalendar.el
Index: icalendar.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/icalendar.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- icalendar.el 2007/04/16 02:12:27 1.3
+++ icalendar.el 2007/07/10 22:52:24 1.4
@@ -111,8 +111,8 @@
;; ======================================================================
(defgroup icalendar nil
"Icalendar support."
-:prefix "icalendar-"
-:group 'calendar)
+:prefix "icalendar-"
+:group 'calendar)
(defcustom icalendar-import-format
"%s%d%l%o"
@@ -126,64 +126,64 @@ file. Meaning of the specifiers:
%s Summary, see `icalendar-import-format-summary'
%t Status, see `icalendar-import-format-status'
%u URL, see `icalendar-import-format-url'"
-:type 'string
-:group 'icalendar)
+:type 'string
+:group 'icalendar)
(defcustom icalendar-import-format-summary
"%s"
"Format string defining how the summary element is formatted.
This applies only if the summary is not empty! `%s' is replaced
by the summary."
-:type 'string
-:group 'icalendar)
+:type 'string
+:group 'icalendar)
(defcustom icalendar-import-format-description
"\n Desc: %s"
"Format string defining how the description element is formatted.
This applies only if the description is not empty! `%s' is
replaced by the description."
-:type 'string
-:group 'icalendar)
+:type 'string
+:group 'icalendar)
(defcustom icalendar-import-format-location
"\n Location: %s"
"Format string defining how the location element is formatted.
This applies only if the location is not empty! `%s' is replaced
by the location."
-:type 'string
-:group 'icalendar)
+:type 'string
+:group 'icalendar)
(defcustom icalendar-import-format-organizer
"\n Organizer: %s"
"Format string defining how the organizer element is formatted.
This applies only if the organizer is not empty! `%s' is
replaced by the organizer."
-:type 'string
-:group 'icalendar)
+:type 'string
+:group 'icalendar)
(defcustom icalendar-import-format-url
"\n URL: %s"
"Format string defining how the URL element is formatted.
This applies only if the URL is not empty! `%s' is replaced by
the URL."
-:type 'string
-:group 'icalendar)
+:type 'string
+:group 'icalendar)
(defcustom icalendar-import-format-status
"\n Status: %s"
"Format string defining how the status element is formatted.
This applies only if the status is not empty! `%s' is replaced by
the status."
-:type 'string
-:group 'icalendar)
+:type 'string
+:group 'icalendar)
(defcustom icalendar-import-format-class
"\n Class: %s"
"Format string defining how the class element is formatted.
This applies only if the class is not empty! `%s' is replaced by
the class."
-:type 'string
-:group 'icalendar)
+:type 'string
+:group 'icalendar)
(defvar icalendar-debug nil
"Enable icalendar debug messages.")
More information about the XEmacs-CVS
mailing list