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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 398d74b..49509ae 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 1489943..0ae2b38 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)