[Emacs-diffs] Changes to emacs/lisp/international/latexenc.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   06/08/09 01:11:44

Index: latexenc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/latexenc.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- latexenc.el 27 Jan 2006 19:32:05 -0000      1.15
+++ latexenc.el 9 Aug 2006 01:11:44 -0000       1.16
@@ -138,7 +138,13 @@
                ((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)))
+
+         ;; 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?