(tex-file): call `save-some-buffers' before `tex-main-file'

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46b59aae07a60e2c0147563d5df76e83ee920f14..75c485878acb6865bff89b149464bf5f3d21815b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-07-01  Sam Steingold  <sds@gnu.org>
+
+       * textmodes/tex-mode.el (tex-file): Call `save-some-buffers'
+       before `tex-main-file' because if the current buffer is new, its
+       file might not exist yet, and then `tex-main-file' will
+       incorrectly return "foo.tex.tex".
+
 2002-07-01  Juanma Barranquero  <lektu@terra.es>
 
        * ido.el (ido-minibuffer-setup-hook): Doc fix.
@@ -27,7 +34,7 @@
 
        * info.el (Info-index): Get immediate error if used in `dir'.
 
-       * textmodes/picture.el (picture-forward-column) 
+       * textmodes/picture.el (picture-forward-column)
        (picture-move-down): Never deactivate the mark.
 
 2002-06-30  Simon Josefsson  <jas@extundo.com>

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 4d4a7d9302ea9b961891d45bf0c9493d8406ae1e..b78c50b2ec1a00430108b8acdc4918ad3a93c07a 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -529,9 +529,9 @@ An alternative value is \" . \", if you use a font with a narrow period."
        (list (concat slash citations opt arg) 3 'font-lock-constant-face)
        ;;
        ;; Text between `` quotes ''.
-       (cons (concat (regexp-opt `("``" "\"<" "\"`" "<<" "\81«") t)
-                     "[^'\">\81»]+"      ;a bit pessimistic
-                     (regexp-opt `("''" "\">" "\"'" ">>" "\81»") t))
+       (cons (concat (regexp-opt `("``" "\"<" "\"`" "<<" "k") t)
+                     "[^'\">{]+"       ;a bit pessimistic
+                     (regexp-opt `("''" "\">" "\"'" ">>" "{") t))
              'font-lock-string-face)
        ;;
        ;; Command names, special and general.
@@ -1678,10 +1678,10 @@ See \\[tex-file] for an alternative."
 This function is more useful than \\[tex-buffer] when you need the
 `.aux' file of LaTeX to have the correct name."
   (interactive)
+  (when tex-offer-save
+    (save-some-buffers))
   (let* ((source-file (tex-main-file))
         (file-dir (file-name-directory (expand-file-name source-file))))
-    (if tex-offer-save
-        (save-some-buffers))
     (if (tex-shell-running)
         (tex-kill-job)
       (tex-start-shell))