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

[Tassilo Horn]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     Tassilo Horn <tsdh>     13/03/28 08:31:12

Index: latex.el
===================================================================
RCS file: /sources/auctex/auctex/latex.el,v
retrieving revision 5.490
retrieving revision 5.491
diff -u -b -r5.490 -r5.491
--- latex.el    7 Mar 2013 09:21:40 -0000       5.490
+++ latex.el    28 Mar 2013 08:31:09 -0000      5.491
@@ -1921,29 +1921,20 @@
 May be reset with `\\[universal-argument] \\[TeX-normal-mode]'.")
 
 (defun TeX-arg-bibliography (optional &optional prompt)
-  "Prompt for a BibTeX or Biber database file.
+  "Prompt for a BibTeX database file.
 If OPTIONAL is non-nil, insert the resulting value as an optional
 argument, otherwise as a mandatory one.  Use PROMPT as the prompt
 string."
-  (let (name files inputs styles)
-    (if LaTeX-using-Biber
-       (progn
-         (setq name "Biber"
-               files 'TeX-Biber-global-files
-               inputs 'biberinputs))
-      (setq name "BibTeX"
-           files 'BibTeX-global-files
-           inputs 'bibinputs))
-    (message "Searching for %s files..." name)
-    (or (symbol-value files)
-       (set files (mapcar 'list (TeX-search-files-by-type
-                                 'biberinputs 'global t t))))
-    (setq styles (multi-prompt
+  (message "Searching for BibTeX files...")
+  (or BibTeX-global-files
+      (setq BibTeX-global-files
+           (mapcar 'list (TeX-search-files-by-type 'bibinputs 'global t t))))
+  (let ((styles (multi-prompt
                  "," t
-                 (TeX-argument-prompt optional prompt (concat name " files"))
+                (TeX-argument-prompt optional prompt "BibTeX files")
                  (append (mapcar 'list (TeX-search-files-by-type
-                                        inputs 'local t t))
-                         (symbol-value files))))
+                                       'bibinputs 'local t t))
+                        BibTeX-global-files))))
     (apply 'LaTeX-add-bibliographies styles)
     (TeX-argument-insert (mapconcat 'identity styles ",") optional)))