use default-directory when tex-main-file has no directory

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e951b7ae8a04d6e7872ab19eda842f10802033a3..29e40f668ee9115d679c7319f89a74ea610a119f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-31  Sam Steingold  <sds@gnu.org>
+
+       * textmodes/tex-mode.el (tex-file): Use `default-directory' when
+       `tex-main-file' does not have directory in it.
+
 2000-10-31  Stefan Monnier  <monnier@cs.yale.edu>
 
        * cus-edit.el (custom-mode-map): Switch back to a sparse keymap.

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index d39f40ad4ba3a95126f34c45c391bdaaf42f1fee..1faa2a257f002ce10ae916d39e21873f22558b35 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1528,7 +1528,8 @@ This function is more useful than \\[tex-buffer] when you need the
 `.aux' file of LaTeX to have the correct name."
   (interactive)
   (let* ((source-file (tex-main-file))
-        (file-dir (expand-file-name (file-name-directory source-file))))
+        (file-dir (expand-file-name (or (file-name-directory source-file)
+                                         default-directory))))
     (if tex-offer-save
         (save-some-buffers))
     (if (tex-shell-running)