CVSROOT: /cvsroot/auctex Module name: auctex Changes by: Ralf Angeli <angeli> 12/11/26 19:56:22
Index: tex-buf.el =================================================================== RCS file: /cvsroot/auctex/auctex/tex-buf.el,v retrieving revision 1.291 retrieving revision 1.292 diff -u -b -r1.291 -r1.292 --- tex-buf.el 1 Oct 2012 16:10:29 -0000 1.291 +++ tex-buf.el 26 Nov 2012 19:56:21 -0000 1.292 @@ -371,12 +371,12 @@ in `TeX-check-path'. Returns true if any of the ORIGINALS with any of the EXTENSIONS are newer than DERIVED. Will prompt to save the buffer of any ORIGINALS which are modified but not saved yet." - (let ((existingoriginals nil) - (found nil) + (let (existingoriginals + found + (extensions (TeX-delete-duplicate-strings extensions)) (buffers (buffer-list))) (dolist (path (mapcar (lambda (dir) - (expand-file-name - (file-name-as-directory dir))) + (expand-file-name (file-name-as-directory dir))) TeX-check-path)) (dolist (orig originals) (dolist (ext extensions) @@ -398,8 +398,7 @@ (dolist (eo existingoriginals) (if (file-newer-than-file-p eo derived) (setq found t))) - found - )) + found)) (defcustom TeX-save-query t "*If non-nil, ask user for permission to save files before starting TeX." @@ -410,7 +409,8 @@ (defun TeX-command-query (name) "Query the user for what TeX command to use." - (let* ((default (cond ((if (string-equal name TeX-region) + (let* ((default + (cond ((if (string-equal name TeX-region) (TeX-check-files (concat name "." (TeX-output-extension)) (list name) TeX-file-extensions) @@ -422,7 +422,8 @@ (TeX-check-files (concat name ".bbl") (mapcar 'car (LaTeX-bibliography-list)) - BibTeX-Biber-file-extensions)) + (append BibTeX-file-extensions + TeX-Biber-file-extensions))) ;; We should check for bst files here as well. (if LaTeX-using-Biber TeX-command-Biber TeX-command-BibTeX)) ((TeX-process-get-variable name @@ -809,7 +810,7 @@ (defun TeX-synchronous-sentinel (name file result) "Process TeX command output buffer after the process dies." - (let* ((buffer (TeX-process-buffer (file-name-nondirectory file)))) + (let ((buffer (TeX-process-buffer (file-name-nondirectory file)))) (save-excursion (set-buffer buffer) @@ -953,13 +954,15 @@ (cond ((TeX-TeX-sentinel-check process name)) ((and (save-excursion (re-search-forward - "^Package biblatex Warning: Please (re)run Biber on the file" nil t)) + "^Package biblatex Warning: Please (re)run Biber on the file" + nil t)) (with-current-buffer TeX-command-buffer (and (LaTeX-bibliography-list) (TeX-check-files (TeX-master-file "bbl") (TeX-style-list) (append TeX-file-extensions - BibTeX-Biber-file-extensions))))) + BibTeX-file-extensions + TeX-Biber-file-extensions))))) (message "%s%s" "You should run Biber to get citations right, " (TeX-current-pages)) (setq TeX-command-next (with-current-buffer TeX-command-buffer @@ -972,7 +975,8 @@ (TeX-check-files (TeX-master-file "bbl") (TeX-style-list) (append TeX-file-extensions - BibTeX-Biber-file-extensions))))) + BibTeX-file-extensions + TeX-Biber-file-extensions))))) (message "%s%s" "You should run BibTeX to get citations right, " (TeX-current-pages)) (setq TeX-command-next (with-current-buffer TeX-command-buffer _______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs