diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-12-07 07:28:37 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-12-07 07:28:37 +0000 |
| commit | 735b7c87d4ac54fd56c876a013d0052c899a4afa (patch) | |
| tree | e39e4851a8a633e76b5abf7f1017f605a24e1311 /lisp/international | |
| parent | 6a6e859a93e0b5eb714c2bc4770bfef871e34ebd (diff) | |
| download | emacs-735b7c87d4ac54fd56c876a013d0052c899a4afa.tar.gz | |
(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.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule-cmds.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 57791409fdd..7756aa58ccd 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1798,7 +1798,9 @@ The default status is as follows: (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 |