Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 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 | 08bc4f887f34 |
| children | 227c1c287c2f 37d0562504bf 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 67357:ad09fcb8cef5 | 67358:9fa16adb2f52 |
|---|---|
| 1796 (reset-language-environment) | 1796 (reset-language-environment) |
| 1797 | 1797 |
| 1798 (defun set-display-table-and-terminal-coding-system (language-name &optional coding-system) | 1798 (defun set-display-table-and-terminal-coding-system (language-name &optional coding-system) |
| 1799 "Set up the display table and terminal coding system for LANGUAGE-NAME." | 1799 "Set up the display table and terminal coding system for LANGUAGE-NAME." |
| 1800 (let ((coding (get-language-info language-name 'unibyte-display))) | 1800 (let ((coding (get-language-info language-name 'unibyte-display))) |
| 1801 (if coding | 1801 (if (and coding |
| 1802 (or (not coding-system) | |
| 1803 (coding-system-equal coding coding-system))) | |
| 1802 (standard-display-european-internal) | 1804 (standard-display-european-internal) |
| 1803 ;; The following 2 lines undo the 8-bit display that we set up | 1805 ;; The following 2 lines undo the 8-bit display that we set up |
| 1804 ;; in standard-display-european-internal, which see. This is in | 1806 ;; in standard-display-european-internal, which see. This is in |
| 1805 ;; case the user has used standard-display-european earlier in | 1807 ;; case the user has used standard-display-european earlier in |
| 1806 ;; this session. (The MS-DOS port doesn't use that setup, so it | 1808 ;; this session. (The MS-DOS port doesn't use that setup, so it |