Mercurial > emacs

changeset 72322:2552d32034c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(latexenc-find-file-coding-system): Fix for the case that the 2nd element of arg-list is a cons.
author Kenichi Handa <handa@m17n.org>
date Wed, 09 Aug 2006 01:11:44 +0000
parents 645e435a6ff8
children af796bc81ff0
files lisp/international/latexenc.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/latexenc.el	Tue Aug 08 20:53:10 2006 +0000
+++ b/lisp/international/latexenc.el	Wed Aug 09 01:11:44 2006 +0000
@@ -138,8 +138,14 @@
                ((and (require 'code-pages nil t) (coding-system-p sym)) sym)
                (t 'undecided)))
           ;; else try to find it in the master/main file
-          (let ((default-directory (file-name-directory (nth 1 arg-list)))
-                latexenc-main-file)
+
+	  ;; Fixme: If the current file is in an archive (e.g. tar,
+	  ;; zip), we should find the master file in that archive.
+	  ;; But, that is not yet implemented.   -- K.Handa
+          (let ((default-directory (if (stringp (nth 1 arg-list))
+				       (file-name-directory (nth 1 arg-list))
+				     default-directory))
+		latexenc-main-file)
             ;; Is there a TeX-master or tex-main-file in the local variables
             ;; section?
             (unless latexenc-dont-use-TeX-master-flag