[elpa] externals/auctex 33cee84 19/78: Allow TeX-command-sequence to process the region

[Tassilo Horn]

branch: externals/auctex
commit 33cee842a2a53b4f3fed5a66792a555b4c95bd2e
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>

    Allow TeX-command-sequence to process the region
    
    * tex-buf.el (TeX-command-sequence): Add argument for processing
    the region file instead of the master file.
---
 ChangeLog  |    3 +++
 tex-buf.el |   13 +++++++++----
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index dde5951..99973b2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2015-09-01  Tassilo Horn  <address@hidden>
 
+       * tex-buf.el (TeX-command-sequence): Add argument for processing
+       the region file instead of the master file.
+
        * tex.el (TeX--if-macro-fboundp): New portability macro.
        (VirTeX-common-initialization): Use it.
 
diff --git a/tex-buf.el b/tex-buf.el
index a341727..c670fd7 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -584,7 +584,7 @@ It is set in `TeX-command-sequence' and used in
 `TeX-command-sequence-sentinel' to call again
 `TeX-command-sequence' with the appropriate command argument.")
 
-(defun TeX-command-sequence (command &optional reset)
+(defun TeX-command-sequence (command &optional reset file-fn)
   "Run a sequence of TeX commands defined by COMMAND.
 
 The COMMAND argument may be
@@ -614,7 +614,12 @@ total in any case.  It ends when `TeX-command-Show' is the
 command to be run.
 
 A non-nil value for the optional argument RESET means this is the
-first run of the function and some variables need to be reset."
+first run of the function and some variables need to be reset.
+
+FILE-FN is a function of zero arguments returning the current
+filename.  Valid choices are `TeX-master-file' (default if
+omitted) and `TeX-region-file'."
+  (setq file-fn (or file-fn #'TeX-master-file))
   (if (null command)
       (message "No command to run.")
     (let (cmd process)
@@ -629,9 +634,9 @@ first run of the function and some variables need to be 
reset."
        (setq cmd (funcall command)
              TeX-command-sequence-command command))
        (t
-       (setq cmd (TeX-command-default (TeX-master-file))
+       (setq cmd (TeX-command-default (funcall file-fn))
              TeX-command-sequence-command t)))
-      (TeX-command cmd 'TeX-master-file 0)
+      (TeX-command cmd file-fn 0)
       (when reset
        (setq TeX-command-sequence-count-same-command 1
              TeX-command-sequence-count 1