[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 647a8fc8a5678eab472daadc43f9b1c5e9e01264

[Tassilo Horn]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  647a8fc8a5678eab472daadc43f9b1c5e9e01264 (commit)
      from  e2b24137ddfcda625264d513da6de3bb0b5270b3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 647a8fc8a5678eab472daadc43f9b1c5e9e01264
Author: Tassilo Horn <address@hidden>
Date:   Fri Sep 4 10:58:08 2015 +0200

    Fixes for "run-all" on current section
    
    * tex-buf.el (TeX-command-sequence-file-function): New variable.
    (TeX-command-sequence): Use it.
    (LaTeX-command-section-boundaries): Recognize end of document as
    ultimate boundary.
    (LaTeX-command-section): Signal an error if not in a LaTeX buffer.
    (LaTeX-command-run-all-section): Ditto.

diff --git a/ChangeLog b/ChangeLog
index 9dec281..7ddb7cf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,6 +12,13 @@
 
 2015-09-04  Tassilo Horn  <address@hidden>
 
+       * tex-buf.el (TeX-command-sequence-file-function): New variable.
+       (TeX-command-sequence): Use it.
+       (LaTeX-command-section-boundaries): Recognize end of document as
+       ultimate boundary.
+       (LaTeX-command-section): Signal an error if not in a LaTeX buffer.
+       (LaTeX-command-run-all-section): Ditto.
+
        * tex.el: Add autoloads for the new commands.
 
        * tex-buf.el (TeX-region-update): New function.
diff --git a/tex-buf.el b/tex-buf.el
index 6afe51e..c13a87e 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -581,6 +581,9 @@ ORIGINALS which are modified but not saved yet."
 (defvar TeX-command-sequence-sentinel nil
   "Sentinel for `TeX-command-sequence'.")
 
+(defvar TeX-command-sequence-file-function nil
+  "File function for `TeX-command-sequence'.")
+
 (defvar TeX-command-sequence-command nil
   "Command argument for `TeX-command-sequence'.
 
@@ -623,7 +626,7 @@ 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))
+  (setq TeX-command-sequence-file-function (or file-fn #'TeX-master-file))
   (if (null command)
       (message "No command to run.")
     (let (cmd process)
@@ -638,9 +641,10 @@ omitted) and `TeX-region-file'."
        (setq cmd (funcall command)
              TeX-command-sequence-command command))
        (t
-       (setq cmd (TeX-command-default (funcall file-fn nil t))
+       (setq cmd (TeX-command-default
+                  (funcall TeX-command-sequence-file-function nil t))
              TeX-command-sequence-command t)))
-      (TeX-command cmd file-fn 0)
+      (TeX-command cmd TeX-command-sequence-file-function 0)
       (when reset
        (setq TeX-command-sequence-count-same-command 1
              TeX-command-sequence-count 1
@@ -1466,7 +1470,8 @@ variable is nil."
              (or
               (plist-get TeX-error-report-switches (intern (TeX-master-file)))
               (null TeX-command-sequence-command))
-           (TeX-command-sequence TeX-command-sequence-command))))))
+           (TeX-command-sequence TeX-command-sequence-command nil
+                                 TeX-command-sequence-file-function))))))
 
 ;;; Process Control
 
@@ -1600,7 +1605,7 @@ command."
 
 (defvar TeX-parse-function nil
   "Function to call to parse content of TeX output buffer.")
- (make-variable-buffer-local 'TeX-parse-function)
+(make-variable-buffer-local 'TeX-parse-function)
 
 (defun TeX-background-filter (process string)
   "Filter to process background output."
@@ -1885,7 +1890,7 @@ The section is determined by 
`LaTeX-command-section-level'."
            (re-search-backward rx nil t)
            (point))
          (save-excursion
-           (re-search-forward rx nil t)
+           (re-search-forward (concat rx "\\|\\\\end{document}") nil t)
            (forward-line 0)
            (point)))))
 
@@ -1904,10 +1909,12 @@ If a prefix argument OVERRIDE-CONFIRM is given, 
confirmation will
 depend on it being positive instead of the entry in
 `TeX-command-list'."
   (interactive "P")
-  (let* ((bounds (LaTeX-command-section-boundaries))
-        (TeX-command-region-begin (car bounds))
-        (TeX-command-region-end (cdr bounds)))
-    (TeX-command-region override-confirm)))
+  (if (eq major-mode 'latex-mode)
+      (let* ((bounds (LaTeX-command-section-boundaries))
+            (TeX-command-region-begin (car bounds))
+            (TeX-command-region-end (cdr bounds)))
+       (TeX-command-region override-confirm))
+    (error "LaTeX-command-section can only be run on LaTeX documents")))
 
 (defun TeX-command-run-all-region ()
   "Compile the current region until an error occurs or it is finished."
@@ -1918,11 +1925,13 @@ depend on it being positive instead of the entry in
 (defun LaTeX-command-run-all-section ()
   "Compile the current section until an error occurs or it is finished."
   (interactive)
-  (let* ((bounds (LaTeX-command-section-boundaries))
-        (TeX-command-region-begin (car bounds))
-        (TeX-command-region-end (cdr bounds)))
-    (TeX-region-update))
-  (TeX-command-sequence t t #'TeX-region-file))
+  (if (eq major-mode 'latex-mode)
+      (let* ((bounds (LaTeX-command-section-boundaries))
+            (TeX-command-region-begin (car bounds))
+            (TeX-command-region-end (cdr bounds)))
+       (TeX-region-update)
+       (TeX-command-sequence t t #'TeX-region-file))
+    (error "LaTeX-command-run-all-section can only be run on LaTeX 
documents")))
 
 (defun TeX-command-run-all (arg)
   "Compile the current document until an error occurs or it is finished.
@@ -1945,17 +1954,17 @@ compile the current section instead, e.g. call
 (defvar TeX-error-point nil
   "How far we have parsed until now.")
 
- (make-variable-buffer-local 'TeX-error-point)
+(make-variable-buffer-local 'TeX-error-point)
 
 (defvar TeX-error-file nil
   "Stack of files in which errors have occurred.")
 
- (make-variable-buffer-local 'TeX-error-file)
+(make-variable-buffer-local 'TeX-error-file)
 
 (defvar TeX-error-offset nil
   "Add this to any line numbers from TeX.  Stack like `TeX-error-file'.")
 
- (make-variable-buffer-local 'TeX-error-offset)
+(make-variable-buffer-local 'TeX-error-offset)
 
 (defun TeX-parse-reset (&optional reparse)
   "Reset all variables used for parsing TeX output.

-----------------------------------------------------------------------

Summary of changes:
 ChangeLog  |    7 +++++++
 tex-buf.el |   45 +++++++++++++++++++++++++++------------------
 2 files changed, 34 insertions(+), 18 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX