changeset 67358:9fa16adb2f52

(set-display-table-and-terminal-coding-system): If the coding system specified in `unibyte-display' property is different from the arg coding-system, don't setup standard-display-table.
author Kenichi Handa <handa@m17n.org>
date Wed, 07 Dec 2005 07:27:28 +0000
parents ad09fcb8cef5
children d04a31d76193
files lisp/international/mule-cmds.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Tue Dec 06 22:10:07 2005 +0000
+++ b/lisp/international/mule-cmds.el	Wed Dec 07 07:27:28 2005 +0000
@@ -1798,7 +1798,9 @@
 (defun set-display-table-and-terminal-coding-system (language-name &optional coding-system)
   "Set up the display table and terminal coding system for LANGUAGE-NAME."
   (let ((coding (get-language-info language-name 'unibyte-display)))
-    (if coding
+    (if (and coding
+	     (or (not coding-system)
+		 (coding-system-equal coding coding-system)))
 	(standard-display-european-internal)
       ;; The following 2 lines undo the 8-bit display that we set up
       ;; in standard-display-european-internal, which see.  This is in