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

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.515 auctex/tex.el:5.516
--- auctex/tex.el:5.515 Thu May 12 12:09:50 2005
+++ auctex/tex.el       Mon May 16 08:46:42 2005
@@ -1174,6 +1174,10 @@
   :group 'TeX-command
   :type 'regexp)
 
+;; Can be let-bound temporarily in order to inhibit the master file
+;; question for shared files where its value will be used instead.
+(defvar TeX-transient-master nil)
+
 (defun TeX-dwim-master ()
   "Find a likely `TeX-master'."
   (let ((dir default-directory))
@@ -1241,12 +1245,14 @@
         ;; For files shared between many documents.
         ((and (eq 'shared TeX-master) ask)
          (setq TeX-master
-               (TeX-strip-extension
-                (let ((default (or (TeX-dwim-master) "this file")))
-                  (read-file-name (format "Master file: (default %s) " default)
-                                  nil default))
-                (list TeX-default-extension)
-                'path))
+               (or TeX-transient-master
+                   (TeX-strip-extension
+                    (let ((default (or (TeX-dwim-master) "this file")))
+                      (read-file-name
+                       (format "Master file: (default %s) " default)
+                       nil default))
+                    (list TeX-default-extension)
+                    'path)))
          (if (or (string-equal TeX-master "this file")
                  (string-equal TeX-master ""))
              (setq TeX-master t)))