Mercurial > emacs
comparison lisp/term/internal.el @ 26515:9f3d02d7daa8
term/internal.el (IT-display-table-setup): Don't overstep
character code 255.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 21 Nov 1999 11:29:25 +0000 |
| parents | 87e4cdfac07b |
| children | f3cc4443dca2 |
comparison
equal
deleted
inserted
replaced
| 26514:3e1c04e6791b | 26515:9f3d02d7daa8 |
|---|---|
| 218 (c offset) | 218 (c offset) |
| 219 association chset) | 219 association chset) |
| 220 ;; Undo the effects of previous call (where they may have used | 220 ;; Undo the effects of previous call (where they may have used |
| 221 ;; a different codepage) by reverting the display table for the | 221 ;; a different codepage) by reverting the display table for the |
| 222 ;; built-in charset to its pristine shape. | 222 ;; built-in charset to its pristine shape. |
| 223 (while (< c (+ offset 128)) | 223 (while (< c 256) |
| 224 (aset disp-tab (make-char built-in-set c) nil) | 224 (aset disp-tab (make-char built-in-set c) nil) |
| 225 (setq c (1+ c))) | 225 (setq c (1+ c))) |
| 226 (while surrogates | 226 (while surrogates |
| 227 (setq association (car surrogates)) | 227 (setq association (car surrogates)) |
| 228 (setq chset (car association)) | 228 (setq chset (car association)) |