[AUCTeX-diffs] Changes to auctex/tex-buf.el,v

[Ralf Angeli]

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