emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex ab04c45 35/57: Correct actions on region file in


From: Tassilo Horn
Subject: [elpa] externals/auctex ab04c45 35/57: Correct actions on region file in included file not placed in master dir
Date: Tue, 25 Jul 2017 14:02:33 -0400 (EDT)

branch: externals/auctex
commit ab04c45dde3c1e591bd4e46ccd6a6211710355da
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    Correct actions on region file in included file not placed in master dir
    
    * tex-buf.el (TeX-command-region): Call `TeX-region-file' with nil
    `nondirectory' argument.
    Fix a typo in doc string.
    (TeX-command-default): Use `(TeX-region-file)' instead of `TeX-region'
    for comparison with the given argument.
---
 tex-buf.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/tex-buf.el b/tex-buf.el
index fa92335..5fff109 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -177,11 +177,15 @@ temporary file before the region itself.  The document's 
header is all
 text before `TeX-header-end'.
 
 If the master file for the document has a trailer, it is written to
-the temporary file before the region itself.  The document's trailer is
+the temporary file after the region itself.  The document's trailer is
 all text after `TeX-trailer-start'."
   (interactive "P")
   (TeX-region-update)
-  (TeX-command (TeX-command-query (TeX-region-file nil t)) 'TeX-region-file
+  ;; In the next line, `TeX-region-file' should be called with nil
+  ;; `nondirectory' argument, otherwise `TeX-comand-default' called
+  ;; within `TeX-command-query' won't work in included files not
+  ;; placed in `TeX-master-directory'.
+  (TeX-command (TeX-command-query (TeX-region-file)) 'TeX-region-file
               override-confirm))
 
 (defun TeX-command-buffer (&optional override-confirm)
@@ -777,7 +781,7 @@ omitted) and `TeX-region-file'."
     (cond (;; name might be absolute or relative, so expand it for
           ;; comparison.
           (if (string-equal (expand-file-name name)
-                            (expand-file-name TeX-region))
+                            (expand-file-name (TeX-region-file)))
               (TeX-check-files (concat name "." (TeX-output-extension))
                                ;; Each original will be checked for all dirs
                                ;; in `TeX-check-path' so this needs to be just



reply via email to

[Prev in Thread] Current Thread [Next in Thread]