[Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v

[Glenn Morris]

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 ()