procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(latexenc-find-file-coding-system):

Browse source 
Fix for the case that the 2nd element of arg-list is a cons.
This commit is contained in:
Kenichi Handa 2006-08-09 01:11:44 +00:00
parent d8a869ea1f
commit dccee2cb15
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/international/latexenc.el
View file

@ -138,8 +138,14 @@ coding system names is determined from `latex-inputenc-coding-alist'."
((and (require 'code-pages nil t) (coding-system-p sym)) sym) ((and (require 'code-pages nil t) (coding-system-p sym)) sym)
(t 'undecided))) (t 'undecided)))
;; else try to find it in the master/main file ;; 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 ;; Is there a TeX-master or tex-main-file in the local variables
;; section? ;; section?
(unless latexenc-dont-use-TeX-master-flag (unless latexenc-dont-use-TeX-master-flag