From 78796feb48acdbe6b7e61818a2a0a80c779234a4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 24 Dec 2008 22:24:24 +0000 Subject: [PATCH] (tex-bibtex-file): Use tex-main-file. --- lisp/ChangeLog | 17 +++++++++++------ lisp/textmodes/tex-mode.el | 9 +++++---- 2 files changed, 16 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0a6627eaec6..e9568488df6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,19 +1,23 @@ +2008-12-24 Francois Fleuret (tiny change) + + * textmodes/tex-mode.el (tex-bibtex-file): Use tex-main-file. + 2008-12-24 Dan Nicolaescu * subr.el (chmod): New defalias for set-file-modes. 2008-12-23 Juri Linkov - * 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 - * 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 diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 7515e864fa5..20f861f0a3d 100644 --- 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)) -- 2.39.2