Mercurial > emacs

comparison lisp/textmodes/tex-mode.el @ 51796:09e60f24d0c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tex-main-file): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Jul 2003 20:52:27 +0000
parents 65f7a99a6241
children 78cae600e6ef
comparison
equal deleted inserted replaced
51795:cd4ac91f52c9 51796:09e60f24d0c4
1649 1649
1650 (defun tex-main-file () 1650 (defun tex-main-file ()
1651 "Return the relative name of the main file." 1651 "Return the relative name of the main file."
1652 (let* ((file (or tex-main-file 1652 (let* ((file (or tex-main-file
1653 ;; Compatibility with AUCTeX. 1653 ;; Compatibility with AUCTeX.
1654 (and (boundp 'TeX-master) (stringp TeX-master) 1654 (with-no-warnings
1655 (set (make-local-variable 'tex-main-file) TeX-master)) 1655 (when (and (boundp 'TeX-master) (stringp TeX-master))
1656 (make-local-variable 'tex-main-file)
1657 (setq tex-main-file TeX-master)))
1656 ;; Try to guess the main file. 1658 ;; Try to guess the main file.
1657 (if (not buffer-file-name) 1659 (if (not buffer-file-name)
1658 (error "Buffer is not associated with any file") 1660 (error "Buffer is not associated with any file")
1659 (file-relative-name 1661 (file-relative-name
1660 (if (save-excursion 1662 (if (save-excursion