1363 |
(insert "% " TeX-esc "fi\n")))))) |
(insert "% " TeX-esc "fi\n")))))) |
1364 |
|
|
1365 |
(defun TeX-local-master-p () |
(defun TeX-local-master-p () |
1366 |
"Return t if there is a `TeX-master' entry in the local variables section. |
"Return non-nil if there is a `TeX-master' entry in local variables spec. |
1367 |
Return nil otherwise." |
Return nil otherwise." |
1368 |
(save-excursion |
(save-excursion |
1369 |
|
;; XXX: Checking -*- line necessary as well? |
1370 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1371 |
(if (re-search-backward "^%+ *TeX-master:" nil t) |
(search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move) |
1372 |
t |
(re-search-forward "^%+ *TeX-master:" nil t))) |
|
nil))) |
|
1373 |
|
|
1374 |
;;; Style Paths |
;;; Style Paths |
1375 |
|
|