(tex-bibtex-file): Use tex-main-file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0a6627eaec615d68a271c0dd558b223f9d8a618e..e9568488df6bccf1d7beec40e7903eaf46dce764 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,19 +1,23 @@
+2008-12-24  Francois Fleuret  <francois.fleuret@idiap.ch>  (tiny change)
+
+       * textmodes/tex-mode.el (tex-bibtex-file): Use tex-main-file.
+
 2008-12-24  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * subr.el (chmod): New defalias for set-file-modes.
 
 2008-12-23  Juri Linkov  <juri@jurta.org>
 
-       * isearch.el (isearch-filter-predicate, isearch-search): Replace
-       `isearch-filter-invisible' with `isearch-filter-visible'.
-       (isearch-filter-visible): Renamed from
+       * isearch.el (isearch-filter-predicate, isearch-search):
+       Replace `isearch-filter-invisible' with `isearch-filter-visible'.
+       (isearch-filter-visible): Rename from
        `isearch-filter-invisible'.  Doc fix.
 
        * dired-aux.el (dired-isearch-filenames-toggle): Use the original
        value from `dired-isearch-filter-predicate-orig' instead of the
        symbol `isearch-filter-invisible'.  Doc fix.
-       (dired-isearch-filter-filenames): Replace
-       `isearch-filter-invisible' with `isearch-filter-visible'.  Doc fix.
+       (dired-isearch-filter-filenames): Doc fix.
+       Replace `isearch-filter-invisible' with `isearch-filter-visible'.
 
        * info.el (Info-find-node-2): Use negative offset 2 instead of 1
        for Info-point-loc since it is more correct in all cases.
@@ -38,7 +42,8 @@
 
 2008-12-22  Ulf Jasper  <ulf.jasper@web.de>
 
-       * net/newst-backend.el (newst-backend): Removed wrong duplicate provide statement.
+       * net/newst-backend.el (newst-backend):
+       Remove wrong duplicate provide statement.
 
 2008-12-22  Michael Albinus  <michael.albinus@gmx.de>
 

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 7515e864fa5c295641ec3935f31726b3824f84cd..20f861f0a3d4e32408e75d8b4efce272811208e8 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -2536,10 +2536,11 @@ Runs the shell command defined by `tex-show-queue-command'."
   (if (tex-shell-running)
       (tex-kill-job)
     (tex-start-shell))
-  (let (shell-dirtrack-verbose
-       (tex-out-file
-         (tex-append (file-name-nondirectory (buffer-file-name)) ""))
-       (file-dir (file-name-directory (buffer-file-name))))
+  (let* (shell-dirtrack-verbose
+         (source-file (tex-main-file))
+         (tex-out-file
+          (tex-append (file-name-nondirectory source-file) ""))
+         (file-dir (file-name-directory source-file)))
     (tex-send-command tex-shell-cd-command file-dir)
     (tex-send-command tex-bibtex-command tex-out-file))
   (tex-display-shell))