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

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index a7b2d8e8f810950024393216dbf0d17740262340..ca345f8b635c6c0dc6646cc9becb9210ae2d5d87 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -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")