1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00

(tex-main-file): Use with-no-warnings.

This commit is contained in:
Richard M. Stallman 2003-07-07 20:52:27 +00:00
parent 7461dcb0fd
commit 96c0d9e953

View file

@ -1651,8 +1651,10 @@ of the current buffer."
"Return the relative name of the main file."
(let* ((file (or tex-main-file
;; Compatibility with AUCTeX.
(and (boundp 'TeX-master) (stringp TeX-master)
(set (make-local-variable 'tex-main-file) TeX-master))
(with-no-warnings
(when (and (boundp 'TeX-master) (stringp TeX-master))
(make-local-variable 'tex-main-file)
(setq tex-main-file TeX-master)))
;; Try to guess the main file.
(if (not buffer-file-name)
(error "Buffer is not associated with any file")