[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v |
Date: |
Sat, 15 Mar 2008 02:56:30 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/03/15 02:56:30
Index: cal-tex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-tex.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- cal-tex.el 13 Mar 2008 06:25:17 -0000 1.38
+++ cal-tex.el 15 Mar 2008 02:56:30 -0000 1.39
@@ -150,7 +150,7 @@
(defcustom cal-tex-hook nil
"List of functions called after any LaTeX calendar buffer is generated.
-You can use this to do postprocessing on the buffer. For example, to change
+You can use this to do post-processing on the buffer. For example, to change
characters with diacritical marks to their LaTeX equivalents, use
(add-hook 'cal-tex-hook
(lambda () (iso-iso2tex (point-min) (point-max))))"
@@ -523,12 +523,11 @@
(setq other-month month
other-year year)
(cal-tex-insert-days month year diary-list holidays cal-tex-day-prefix)
- (when (= (mod (calendar-absolute-from-gregorian
+ (when (= 6 (mod (calendar-absolute-from-gregorian
(list month
(calendar-last-day-of-month month year)
year))
- 7)
- 6) ; last day of month was Saturday
+ 7)) ; last day of month was Saturday
(cal-tex-hfill)
(cal-tex-nl))
(increment-calendar-month month year 1))
@@ -637,7 +636,7 @@
(let ((last-day (calendar-last-day-of-month month year))
any-days the-sunday) ; the day of week of last Sunday
(calendar-for-loop i from (- last-day 6) to last-day do
- (if (= 0 (calendar-day-of-week (list month i year)))
+ (if (zerop (calendar-day-of-week (list month i year)))
(setq the-sunday i)))
(calendar-for-loop i from the-sunday to last-day do
(if (memq (calendar-day-of-week (list month i year))
@@ -1579,7 +1578,7 @@
"Initialize the output LaTeX calendar buffer, `cal-tex-buffer'.
Select the output buffer, and insert the preamble for a calendar
of WEEKS weeks. Insert code for landscape mode if LANDSCAPE is
-non-nil. Use pointsize SIZE. Optional argument APPEND, if
+non-nil. Use point-size SIZE. Optional argument APPEND, if
non-nil, means add to end of buffer without erasing current contents."
(let ((width "18cm")
(height "24cm"))
@@ -1645,7 +1644,7 @@
head)))
(defun cal-tex-month-name (month)
- "The name of MONTH, LaTeXified."
+ "The name of MONTH, LaTeX-ified."
(cal-tex-LaTeXify-string (calendar-month-name month)))
(defun cal-tex-hfill ()
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v, Glenn Morris, 2008/03/31