1233 |
(widen) |
(widen) |
1234 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1235 |
(cond |
(cond |
1236 |
|
(TeX-transient-master |
1237 |
|
(setq TeX-master TeX-transient-master)) |
1238 |
;; Special value 't means it is own master (a free file). |
;; Special value 't means it is own master (a free file). |
1239 |
((equal TeX-master my-name) |
((equal TeX-master my-name) |
1240 |
(setq TeX-master t)) |
(setq TeX-master t)) |
1242 |
;; For files shared between many documents. |
;; For files shared between many documents. |
1243 |
((and (eq 'shared TeX-master) ask) |
((and (eq 'shared TeX-master) ask) |
1244 |
(setq TeX-master |
(setq TeX-master |
1245 |
(or TeX-transient-master |
(let* ((default (TeX-dwim-master)) |
1246 |
(let* ((default (TeX-dwim-master)) |
(name (read-file-name |
1247 |
(name (read-file-name |
(format "Master file: (default %s) " |
1248 |
(format "Master file: (default %s) " |
(or default "this file")) |
1249 |
(or default "this file")) |
nil default))) |
1250 |
nil default))) |
(cond ((string= name default) |
1251 |
(cond ((string= name default) |
default) |
1252 |
default) |
((or |
1253 |
((or |
;; Default `read-file-name' proposes and |
1254 |
;; Default `read-file-name' proposes and |
;; buffer visits a file. |
1255 |
;; buffer visits a file. |
(string= (expand-file-name name) |
1256 |
(string= (expand-file-name name) |
(buffer-file-name)) |
1257 |
(buffer-file-name)) |
;; Default of `read-file-name' and |
1258 |
;; Default of `read-file-name' and |
;; buffer does not visit a file. |
1259 |
;; buffer does not visit a file. |
(string= name default-directory) |
1260 |
(string= name default-directory) |
;; User typed <RET> in an empty minibuffer. |
1261 |
;; User typed <RET> in an empty minibuffer. |
(string= name "")) |
1262 |
(string= name "")) |
t) |
1263 |
t) |
(t |
1264 |
(t |
(TeX-strip-extension |
1265 |
(TeX-strip-extension |
name (list (TeX-default-extension)) 'path)))))) |
|
name (list (TeX-default-extension)) 'path))))))) |
|
1266 |
|
|
1267 |
;; We might already know the name. |
;; We might already know the name. |
1268 |
((or (eq TeX-master t) (stringp TeX-master)) TeX-master) |
((or (eq TeX-master t) (stringp TeX-master)) TeX-master) |
1287 |
my-name))) |
my-name))) |
1288 |
|
|
1289 |
(if (TeX-match-extension name) |
(if (TeX-match-extension name) |
1290 |
;; If it already have an extension... |
;; If it already has an extension... |
1291 |
(if (equal extension TeX-default-extension) |
(if (equal extension TeX-default-extension) |
1292 |
;; Use instead of the default extension |
;; Use instead of the default extension |
1293 |
(setq extension nil) |
(setq extension nil) |