* lisp/calendar/cal-tex.el (cal-tex-end-document): Trivial clarification.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 398d74b124f95b62d7c67beb48318c80f3e1ec5b..49509ae5624a2ecc3d7bdb3fd00282a44bbd5f0b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-04-16  Glenn Morris  <rgm@gnu.org>
 
+       * calendar/cal-tex.el (cal-tex-end-document): Trivial clarification.
+
        * play/cookie1.el (cookie-snarf):
        Give an explicit error if input file cannot be read.
 

diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el
index 14899431e2a743ad4994651e78f06491d26a3c14..0ae2b38eaf64222c65bf13f9e3ece39b20d97fbf 100644 (file)
--- a/lisp/calendar/cal-tex.el
+++ b/lisp/calendar/cal-tex.el
@@ -1,6 +1,6 @@
 ;;; cal-tex.el --- calendar functions for printing calendars with LaTeX
 
-;; Copyright (C) 1995, 2001-2012  Free Software Foundation, Inc.
+;; Copyright (C) 1995, 2001-2012 Free Software Foundation, Inc.
 
 ;; Author: Steve Fisk <fisk@bowdoin.edu>
 ;;         Edward M. Reingold <reingold@cs.uiuc.edu>
@@ -1588,8 +1588,7 @@ informative header, and run HOOK."
   (cal-tex-e-document)
   (or (and cal-tex-preamble-extra
            (string-match "inputenc" cal-tex-preamble-extra))
-      (not (re-search-backward "[^[:ascii:]]" nil 'move))
-      (progn
+      (when (re-search-backward "[^[:ascii:]]" nil 'move)
         (goto-char (point-min))
         (when (search-forward "documentclass" nil t)
           (forward-line 1)