Mercurial > emacs
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) |