Mercurial > emacs
changeset 71158:90d8009144c1
(find-auto-coding): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 02 Jun 2006 06:34:24 +0000 |
| parents | df6eeb0fe6f9 |
| children | 1d3e70a13b74 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Fri Jun 02 06:34:00 2006 +0000 +++ b/lisp/international/mule.el Fri Jun 02 06:34:24 2006 +0000 @@ -1707,6 +1707,7 @@ (goto-char tail-start) (setq tail-found (or (search-forward "coding:" tail-end t) (search-forward "unibyte:" tail-end t) + (search-forward "char-trans:" tail-end t) (search-forward "enable-character-translation:" tail-end t)))) @@ -1761,7 +1762,7 @@ (re-char-trans (concat "[\r\n]" prefix - "[ \t]*enable-character-translation[ \t]*:[ \t]*\\([^ \t\r\n]+\\)[ \t]*" + "[ \t]*\\(enable-character-translation\\|char-trans\\)[ \t]*:[ \t]*\\([^ \t\r\n]+\\)[ \t]*" suffix "[\r\n]")) (re-end (concat "[\r\n]" prefix "[ \t]*End *:[ \t]*" suffix @@ -1779,7 +1780,7 @@ (setq coding-system (intern (match-string 1)))) (when (and (not char-trans) (re-search-forward re-char-trans tail-end t)) - (setq char-trans (match-string 1)))))) + (setq char-trans (match-string 2)))))) (if coding-system ;; If the coding-system name ends with "!", remove it and ;; set char-trans to "nil".