aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii1999-06-14 15:10:14 +0000
committerEli Zaretskii1999-06-14 15:10:14 +0000
commitf53c8bb28dd0c81851cf97751023d3160b6187f9 (patch)
tree3bc6a11ff962676d8b4c116ee62f4523d0112d6f
parent2d1cc7d91e06db645d4651db0dc400dda244fea9 (diff)
downloademacs-f53c8bb28dd0c81851cf97751023d3160b6187f9.tar.gz
emacs-f53c8bb28dd0c81851cf97751023d3160b6187f9.zip
(IT-display-table-setup): Do not remap \222 to
the ASCII apostrophe, as most DOS codepages have some other glyph there.
-rw-r--r--lisp/term/internal.el10
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index c0ec236db4e..5a0ffe29bcc 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
204installed codepage.") 204installed codepage.")
205 205
206(defun IT-display-table-setup (codepage &optional table) 206(defun IT-display-table-setup (codepage &optional table)
207 "Set up display table TABLE for a DOS terminal which supports a 207 "Set up display table TABLE for a DOS terminal which supports
208glyphs built into the current codepage CODEPAGE. 208glyphs built into the codepage CODEPAGE.
209 209
210If TABLE is nil or omitted, `standard-display-table' is used." 210If TABLE is nil or omitted, `standard-display-table' is used."
211 (let* ((surrogates IT-character-translations) 211 (let* ((surrogates IT-character-translations)
@@ -243,11 +243,7 @@ If TABLE is nil or omitted, `standard-display-table' is used."
243 (if (> (length glyph) 1) (concat "{" glyph "}") 243 (if (> (length glyph) 1) (concat "{" glyph "}")
244 glyph))))) 244 glyph)))))
245 (setq i (1+ i)))) 245 (setq i (1+ i))))
246 (setq surrogates (cdr surrogates))) 246 (setq surrogates (cdr surrogates)))))
247 ;; Most Windows programs send out apostrophe's as \222. Most DOS
248 ;; fonts contain a different character at that position. Map it
249 ;; to the ASCII apostrophe.
250 (aset standard-display-table 146 [39])))
251 247
252(defun dos-cpNNN-setup (codepage) 248(defun dos-cpNNN-setup (codepage)
253 "Set up the MULE environment using the DOS codepage CODEPAGE. 249 "Set up the MULE environment using the DOS codepage CODEPAGE.