Mercurial > emacs

changeset 68418:0927d6785ca7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(latexenc-find-file-coding-system): Make sure latexenc-main-file is a regular file and is readable.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 27 Jan 2006 19:24:00 +0000
parents 01a242622a33
children c72649ca09b5
files lisp/international/latexenc.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/latexenc.el	Fri Jan 27 19:14:51 2006 +0000
+++ b/lisp/international/latexenc.el	Fri Jan 27 19:24:00 2006 +0000
@@ -156,7 +156,8 @@
                                        "")
                                  ".tex" ".ltx" ".dtx" ".drv"))
                     (if (and (null latexenc-main-file) ;Stop at first.
-                             (file-exists-p (concat file ext)))
+                             (file-regular-p (concat file ext))
+                             (file-readable-p (concat file ext)))
                         (setq latexenc-main-file (concat file ext)))))))
             ;; try tex-modes tex-guess-main-file
             (when (and (not latexenc-dont-use-tex-guess-main-file-flag)
@@ -167,7 +168,7 @@
                   (setq latexenc-main-file (tex-guess-main-file)))))
             ;; if we found a master/main file get the coding system from it
             (if (and latexenc-main-file
-		     (file-regular-p latexenc-main-file)
+                     (file-regular-p latexenc-main-file)
                      (file-readable-p latexenc-main-file))
                 (let* ((latexenc-dont-use-tex-guess-main-file-flag t)
                        (latexenc-dont-use-TeX-master-flag t)