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

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.526 auctex/tex.el:5.527
--- auctex/tex.el:5.526 Fri Jun 10 09:45:09 2005
+++ auctex/tex.el       Sat Jun 11 19:28:25 2005
@@ -1233,6 +1233,8 @@
        (widen)
        (goto-char (point-min))
        (cond
+        (TeX-transient-master
+         (setq TeX-master TeX-transient-master))
         ;; Special value 't means it is own master (a free file).
         ((equal TeX-master my-name)
          (setq TeX-master t))
@@ -1240,28 +1242,27 @@
         ;; For files shared between many documents.
         ((and (eq 'shared TeX-master) ask)
          (setq TeX-master
-               (or TeX-transient-master
-                   (let* ((default (TeX-dwim-master))
-                          (name (read-file-name
-                                 (format "Master file: (default %s) "
-                                         (or default "this file"))
-                                 nil default)))
-                     (cond ((string= name default)
-                            default)
-                           ((or
-                             ;; Default `read-file-name' proposes and
-                             ;; buffer visits a file.
-                             (string= (expand-file-name name)
-                                      (buffer-file-name))
-                             ;; Default of `read-file-name' and
-                             ;; buffer does not visit a file.
-                             (string= name default-directory)
-                             ;; User typed <RET> in an empty minibuffer.
-                             (string= name ""))
-                            t)
-                           (t
-                            (TeX-strip-extension
-                             name (list (TeX-default-extension)) 'path)))))))
+               (let* ((default (TeX-dwim-master))
+                      (name (read-file-name
+                             (format "Master file: (default %s) "
+                                     (or default "this file"))
+                             nil default)))
+                 (cond ((string= name default)
+                        default)
+                       ((or
+                         ;; Default `read-file-name' proposes and
+                         ;; buffer visits a file.
+                         (string= (expand-file-name name)
+                                  (buffer-file-name))
+                         ;; Default of `read-file-name' and
+                         ;; buffer does not visit a file.
+                         (string= name default-directory)
+                         ;; User typed <RET> in an empty minibuffer.
+                         (string= name ""))
+                        t)
+                       (t
+                        (TeX-strip-extension
+                         name (list (TeX-default-extension)) 'path))))))
 
         ;; We might already know the name.
         ((or (eq TeX-master t) (stringp TeX-master)) TeX-master)
@@ -1286,7 +1287,7 @@
                  my-name)))
 
       (if (TeX-match-extension name)
-      ;; If it already have an extension...
+         ;; If it already has an extension...
          (if (equal extension TeX-default-extension)
              ;; Use instead of the default extension
              (setq extension nil)