[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule.el |
Date: |
Fri, 02 Jun 2006 06:34:24 +0000 |
Index: emacs/lisp/international/mule.el
diff -u emacs/lisp/international/mule.el:1.239
emacs/lisp/international/mule.el:1.240
--- emacs/lisp/international/mule.el:1.239 Fri Jun 2 06:28:36 2006
+++ emacs/lisp/international/mule.el Fri Jun 2 06:34:24 2006
@@ -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".