Mercurial > emacs
comparison lisp/international/latexenc.el @ 72322:2552d32034c7
(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 | f8e7e79d2ca2 |
children | 0b31ecee2604 |
comparison
equal
deleted
inserted
replaced
72321:645e435a6ff8 | 72322:2552d32034c7 |
---|---|
136 (cond | 136 (cond |
137 ((coding-system-p sym) sym) | 137 ((coding-system-p sym) sym) |
138 ((and (require 'code-pages nil t) (coding-system-p sym)) sym) | 138 ((and (require 'code-pages nil t) (coding-system-p sym)) sym) |
139 (t 'undecided))) | 139 (t 'undecided))) |
140 ;; else try to find it in the master/main file | 140 ;; else try to find it in the master/main file |
141 (let ((default-directory (file-name-directory (nth 1 arg-list))) | 141 |
142 latexenc-main-file) | 142 ;; Fixme: If the current file is in an archive (e.g. tar, |
143 ;; zip), we should find the master file in that archive. | |
144 ;; But, that is not yet implemented. -- K.Handa | |
145 (let ((default-directory (if (stringp (nth 1 arg-list)) | |
146 (file-name-directory (nth 1 arg-list)) | |
147 default-directory)) | |
148 latexenc-main-file) | |
143 ;; Is there a TeX-master or tex-main-file in the local variables | 149 ;; Is there a TeX-master or tex-main-file in the local variables |
144 ;; section? | 150 ;; section? |
145 (unless latexenc-dont-use-TeX-master-flag | 151 (unless latexenc-dont-use-TeX-master-flag |
146 (goto-char (point-max)) | 152 (goto-char (point-max)) |
147 (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) | 153 (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) |