diff options
author | Eli Zaretskii <[email protected]> | 1999-06-14 15:10:14 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 1999-06-14 15:10:14 +0000 |
commit | f53c8bb28dd0c81851cf97751023d3160b6187f9 (patch) | |
tree | 3bc6a11ff962676d8b4c116ee62f4523d0112d6f /lisp/term | |
parent | 2d1cc7d91e06db645d4651db0dc400dda244fea9 (diff) |
(IT-display-table-setup): Do not remap \222 to
the ASCII apostrophe, as most DOS codepages have some other glyph
there.
Diffstat (limited to 'lisp/term')
-rw-r--r-- | lisp/term/internal.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/term/internal.el b/lisp/term/internal.el index c0ec236db4..5a0ffe29bc 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el @@ -204,8 +204,8 @@ terminal which does not have corresponding glyphs built into the installed codepage.") (defun IT-display-table-setup (codepage &optional table) - "Set up display table TABLE for a DOS terminal which supports a -glyphs built into the current codepage CODEPAGE. + "Set up display table TABLE for a DOS terminal which supports +glyphs built into the codepage CODEPAGE. If TABLE is nil or omitted, `standard-display-table' is used." (let* ((surrogates IT-character-translations) @@ -243,11 +243,7 @@ If TABLE is nil or omitted, `standard-display-table' is used." (if (> (length glyph) 1) (concat "{" glyph "}") glyph))))) (setq i (1+ i)))) - (setq surrogates (cdr surrogates))) - ;; Most Windows programs send out apostrophe's as \222. Most DOS - ;; fonts contain a different character at that position. Map it - ;; to the ASCII apostrophe. - (aset standard-display-table 146 [39]))) + (setq surrogates (cdr surrogates))))) (defun dos-cpNNN-setup (codepage) "Set up the MULE environment using the DOS codepage CODEPAGE. |