Index: tex-bar.el =================================================================== RCS file: /cvsroot/auctex/auctex/tex-bar.el,v retrieving revision 1.11 diff -u -r1.11 tex-bar.el --- tex-bar.el 21 May 2005 11:56:45 -0000 1.11 +++ tex-bar.el 22 May 2005 09:10:53 -0000 @@ -84,7 +84,7 @@ (defcustom TeX-bar-LaTeX-buttons '(open-file save-buffer cut copy paste undo - [separator nil] latex next-error view bibtex) + [separator nil] latex next-error view bibtex command-master) "List of buttons available in `latex-mode'. It should be a list in the same format of the BUTTONS parameter in function `toolbarx-install-toolbar', often a symbol that @@ -166,6 +166,10 @@ (bibtex :image "bibtex" :command (TeX-command "BibTeX" 'TeX-master-file -1) :help (lambda nil (TeX-bar-help-from-command-list "BibTeX"))) + (command-master + :image "exec" + :command (TeX-command-master -1) + :help "Execute next processing step for document") (latex-symbols-experimental . (:alias :eval-group LaTeX-symbols-toolbar-switch-contents LaTeX-symbols-toolbar-contents))) Index: tex-buf.el =================================================================== RCS file: /cvsroot/auctex/auctex/tex-buf.el,v retrieving revision 1.229 diff -u -r1.229 tex-buf.el --- tex-buf.el 16 May 2005 08:46:57 -0000 1.229 +++ tex-buf.el 22 May 2005 09:10:53 -0000 @@ -92,7 +92,11 @@ If a prefix argument OVERRIDE-CONFIRM is given, confirmation will depend on it being positive instead of the entry in `TeX-command-list'." (interactive "P") - (TeX-command (TeX-command-query (TeX-master-file)) 'TeX-master-file + (TeX-command (if (or (not override-confirm) + (and override-confirm (> override-confirm 0))) + (TeX-command-query (TeX-master-file)) + (TeX-command-next (TeX-master-file))) + 'TeX-master-file override-confirm)) (defvar TeX-command-region-begin nil) @@ -386,25 +390,27 @@ (defvar TeX-command-history nil) +(defun TeX-command-next (name) + "Return the next command to be run on NAME." + (cond ((if (string-equal name TeX-region) + (TeX-check-files (concat name "." (TeX-output-extension)) + (list name) + TeX-file-extensions) + (TeX-save-document (TeX-master-file))) + TeX-command-default) + ((and (memq major-mode '(doctex-mode latex-mode)) + (TeX-check-files (concat name ".bbl") + (mapcar 'car + (LaTeX-bibliography-list)) + BibTeX-file-extensions)) + ;; We should check for bst files here as well. + TeX-command-BibTeX) + ((TeX-process-get-variable name 'TeX-command-next TeX-command-Show)) + (TeX-command-Show))) + (defun TeX-command-query (name) "Query the user for what TeX command to use." - (let* ((default (cond ((if (string-equal name TeX-region) - (TeX-check-files (concat name "." (TeX-output-extension)) - (list name) - TeX-file-extensions) - (TeX-save-document (TeX-master-file))) - TeX-command-default) - ((and (memq major-mode '(doctex-mode latex-mode)) - (TeX-check-files (concat name ".bbl") - (mapcar 'car - (LaTeX-bibliography-list)) - BibTeX-file-extensions)) - ;; We should check for bst files here as well. - TeX-command-BibTeX) - ((TeX-process-get-variable name - 'TeX-command-next - TeX-command-Show)) - (TeX-command-Show))) + (let* ((default (TeX-command-next name)) (completion-ignore-case t) (answer (or TeX-command-force (completing-read