Index: auctex/tex-buf.el diff -u auctex/tex-buf.el:1.236 auctex/tex-buf.el:1.237 --- auctex/tex-buf.el:1.236 Mon Sep 5 13:38:08 2005 +++ auctex/tex-buf.el Sun Oct 2 11:32:54 2005 @@ -936,7 +936,20 @@ ;; should go into latex.el? --pg (defun TeX-BibTeX-sentinel (process name) "Cleanup TeX output buffer after running BibTeX." - (message "You should perhaps run LaTeX again to get citations right.") + (goto-char (point-max)) + (cond + ;; Check whether BibTeX reports any warnings or errors. + ((re-search-backward (concat + "^(There \\(?:was\\|were\\) \\([0-9]+\\) " + "\\(warnings?\\|error messages?\\))") nil t) + ;; Tell the user their number so that she sees whether the + ;; situation is getting better or worse. + (message (concat "BibTeX finished with %s %s. " + "Type `C-c C-l' to display BibTeX's output.") + (match-string 1) (match-string 2))) + (t + (message (concat "BibTeX finished successfully. " + "Run LaTeX again to get citations right.")))) (setq TeX-command-next TeX-command-default)) ;;; Process Control
_______________________________________________ auctex-diffs mailing list [EMAIL PROTECTED] http://lists.gnu.org/mailman/listinfo/auctex-diffs
