Mercurial > emacs
comparison lisp/textmodes/tex-mode.el @ 51796:09e60f24d0c4
(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 |