[Emacs-diffs] /srv/bzr/emacs/trunk r107936: * lisp/calendar/cal-tex.el (cal-tex-end-document): Trivial clarification.

[Glenn Morris]

------------------------------------------------------------
revno: 107936
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2012-04-16 15:18:36 -0400
message:
  * lisp/calendar/cal-tex.el (cal-tex-end-document): Trivial clarification.
modified:
  lisp/ChangeLog
  lisp/calendar/cal-tex.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-16 19:04:27 +0000
+++ b/lisp/ChangeLog    2012-04-16 19:18:36 +0000
@@ -1,5 +1,7 @@
 2012-04-16  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/calendar/cal-tex.el'
--- a/lisp/calendar/cal-tex.el  2012-01-19 07:21:25 +0000
+++ b/lisp/calendar/cal-tex.el  2012-04-16 19:18:36 +0000
@@ -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 <address@hidden>
 ;;         Edward M. Reingold <address@hidden>
@@ -1588,8 +1588,7 @@
   (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)