comparison lisp/international/codepage.el @ 29189:59e5b57b10db

(cp-decoding-vector-for-codepage): Fill up unsupported characters with their own codes.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 25 May 2000 15:44:00 +0000
parents e2cb024e88cd
children aa05ee69de27
comparison
equal deleted inserted replaced
29188:5084f3ce7025 29189:59e5b57b10db
150 (logand dos-unsupported-char-glyph 255) 150 (logand dos-unsupported-char-glyph 255)
151 127) 151 127)
152 32)) 152 32))
153 (vec1 (make-vector 256 undefined-char)) 153 (vec1 (make-vector 256 undefined-char))
154 (i 0)) 154 (i 0))
155 (while (< i offset) 155 (while (< i 256)
156 (aset vec1 i i) 156 (aset vec1 i i)
157 (setq i (1+ i))) 157 (setq i (1+ i)))
158 (setq i 0) 158 (setq i 0)
159 (while (< i len) 159 (while (< i len)
160 (if (aref table i) 160 (if (aref table i)