diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-06-05 07:11:33 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-06-05 07:11:33 +0000 |
| commit | dac5ab0a1b7251c153c1b1cb3425a4dd8ce8c041 (patch) | |
| tree | c0c5f1a5ec500f9c0aae7e13fe594591aa96547f /lisp/international/mule.el | |
| parent | f090034b788513c60618845dd933a7ee7809e794 (diff) | |
| download | emacs-dac5ab0a1b7251c153c1b1cb3425a4dd8ce8c041.tar.gz | |
(find-auto-coding): Handle
enable-character-translation in file header.
Diffstat (limited to 'lisp/international/mule.el')
| -rw-r--r-- | lisp/international/mule.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index e808f4f5d0f..c0b330a1af3 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1700,6 +1700,8 @@ If nothing is specified, the return value is nil." ;; and for "unibyte:" at the head and tail of SIZE bytes. (setq head-found (or (search-forward "coding:" head-end t) (search-forward "unibyte:" head-end t) + (search-forward "enable-character-translation:" + head-end t) (search-forward "char-trans:" head-end t))) (if (and head-found (> head-found tail-start)) ;; Head and tail are overlapped. @@ -1729,9 +1731,9 @@ If nothing is specified, the return value is nil." head-end t)) (setq coding-system (intern (match-string 2)))) (when (re-search-forward - "\\(.*;\\)?[ \t]*char-trans:[ \t]*\\([^ ;]+\\)" + "\\(.*;\\)?[ \t]*\\(enable-character-translation\\|char-trans\\):[ \t]*\\([^ ;]+\\)" head-end t) - (setq char-trans (match-string 2))))) + (setq char-trans (match-string 3))))) ;; If no coding: tag in the head, check the tail. ;; Here we must pay attention to the case that the end-of-line |