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

[Tassilo Horn]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     Tassilo Horn <tsdh>     12/09/13 10:14:19

Index: tex.el
===================================================================
RCS file: /sources/auctex/auctex/tex.el,v
retrieving revision 5.698
retrieving revision 5.699
diff -u -b -r5.698 -r5.699
--- tex.el      14 Aug 2012 18:23:31 -0000      5.698
+++ tex.el      13 Sep 2012 10:14:19 -0000      5.699
@@ -135,6 +135,7 @@
      TeX-run-TeX nil
      (context-mode) :help "Run ConTeXt until completion")
     ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run BibTeX")
+    ("Biber" "biber %s" TeX-run-Biber nil t :help "Run Biber")
     ,(if (or window-system (getenv "DISPLAY"))
        '("View" "%V" TeX-run-discard-or-function t t :help "Run Viewer")
        '("View" "dvi2tty -q -w 132 %s" TeX-run-command t t
@@ -179,6 +180,8 @@
 
 TeX-run-BibTeX: For BibTeX output.
 
+TeX-run-Biber: For Biber output.
+
 TeX-run-compile: Use `compile' to run the process.
 
 TeX-run-shell: Use `shell-command' to run the process.
@@ -227,6 +230,7 @@
                                (function-item TeX-run-TeX)
                                (function-item TeX-run-interactive)
                                (function-item TeX-run-BibTeX)
+                               (function-item TeX-run-Biber)
                                (function-item TeX-run-compile)
                                (function-item TeX-run-shell)
                                (function-item TeX-run-discard)
@@ -1781,6 +1785,12 @@
   :type 'string)
   (make-variable-buffer-local 'TeX-command-BibTeX)
 
+(defcustom TeX-command-Biber "Biber"
+  "*The name of the Biber entry in `TeX-command-list'."
+  :group 'TeX-command-name
+  :type 'string)
+  (make-variable-buffer-local 'TeX-command-Biber)
+
 (defcustom TeX-command-Show "View"
   "*The default command to show (view or print) a TeX file.
 Must be the car of an entry in `TeX-command-list'."
@@ -3293,7 +3303,7 @@
                       (TeX-strip-extension tex TeX-all-extensions t)
                       ".el"))))
        ((TeX-match-extension tex (append TeX-file-extensions
-                                         BibTeX-file-extensions))
+                                         BibTeX-Biber-file-extensions))
         (save-excursion
           (set-buffer (let (enable-local-eval)
                         (find-file-noselect tex)))
@@ -3313,7 +3323,7 @@
   (unless (file-directory-p TeX-auto-global)
     (make-directory TeX-auto-global))
   (let ((TeX-file-extensions '("cls" "sty"))
-       (BibTeX-file-extensions nil))
+       (BibTeX-Biber-file-extensions nil))
     (mapc (lambda (macro) (TeX-auto-generate macro TeX-auto-global))
          TeX-macro-global))
   (byte-recompile-directory TeX-auto-global 0))
@@ -3628,8 +3638,8 @@
 
   (make-variable-buffer-local 'TeX-output-extension)
 
-(defcustom BibTeX-file-extensions '("bib")
-  "Valid file extensions for BibTeX files."
+(defcustom BibTeX-Biber-file-extensions '("bib" "ris" "xml")
+  "Valid file extensions for BibTeX/Biber files."
   :group 'TeX-file-extension
   :type '(repeat (string :format "%v")))
 
@@ -3804,7 +3814,7 @@
   '((texinputs "${TEXINPUTS}" ("tex/") TeX-file-extensions)
     (docs "${TEXDOCS}" ("doc/") TeX-doc-extensions)
     (graphics "${TEXINPUTS}" ("tex/") LaTeX-includegraphics-extensions)
-    (bibinputs "${BIBINPUTS}" ("bibtex/bib/") BibTeX-file-extensions)
+    (bibinputs "${BIBINPUTS}" ("bibtex/bib/") BibTeX-Biber-file-extensions)
     (bstinputs "${BSTINPUTS}" ("bibtex/bst/") BibTeX-style-extensions))
   "Alist of filetypes with locations and file extensions.
 Each element of the alist consists of a symbol expressing the
@@ -5161,7 +5171,7 @@
   (if arg
       (setq TeX-style-hook-list nil
            BibTeX-global-style-files nil
-           BibTeX-global-files nil
+           BibTeX-Biber-global-files nil
            TeX-global-input-files nil))
   (let ((TeX-auto-save t))
     (if (buffer-modified-p)