1163 |
:group 'TeX-command |
:group 'TeX-command |
1164 |
:type 'regexp) |
:type 'regexp) |
1165 |
|
|
1166 |
;; Can be let-bound temporarily in order to inhibit the master file |
;; Can be let-bound temporarily in order to inhibit the master file question |
1167 |
;; question for shared files where its value will be used instead. |
;; by using its value instead in case `TeX-master' is nil or 'shared. |
1168 |
(defvar TeX-transient-master nil) |
(defvar TeX-transient-master nil) |
1169 |
|
|
1170 |
(defun TeX-dwim-master () |
(defun TeX-dwim-master () |
1233 |
(widen) |
(widen) |
1234 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1235 |
(cond |
(cond |
1236 |
(TeX-transient-master |
((and TeX-transient-master |
1237 |
|
(or (not TeX-master) (eq TeX-master 'shared))) |
1238 |
(setq TeX-master TeX-transient-master)) |
(setq TeX-master TeX-transient-master)) |
1239 |
;; Special value 't means it is own master (a free file). |
;; Special value 't means it is own master (a free file). |
1240 |
((equal TeX-master my-name) |
((equal TeX-master my-name) |