272 |
(while (search-forward "\nSTARTCHAR" nil t) |
(while (search-forward "\nSTARTCHAR" nil t) |
273 |
(setq offset (line-beginning-position)) |
(setq offset (line-beginning-position)) |
274 |
(search-forward "\nENCODING") |
(search-forward "\nENCODING") |
275 |
(setq code (read (current-buffer)) |
(setq code (read (current-buffer))) |
276 |
code0 (lsh code -8) |
(if (< code 0) |
277 |
code1 (logand code 255) |
(search-forward "ENDCHAR") |
278 |
min-code (min min-code code) |
(setq code0 (lsh code -8) |
279 |
max-code (max max-code code) |
code1 (logand code 255) |
280 |
min-code0 (min min-code0 code0) |
min-code (min min-code code) |
281 |
max-code0 (max max-code0 code0) |
max-code (max max-code code) |
282 |
min-code1 (min min-code1 code1) |
min-code0 (min min-code0 code0) |
283 |
max-code1 (max max-code1 code1)) |
max-code0 (max max-code0 code0) |
284 |
(search-forward "ENDCHAR") |
min-code1 (min min-code1 code1) |
285 |
(setq maxlen (max maxlen (- (point) offset)) |
max-code1 (max max-code1 code1)) |
286 |
glyph-list (cons (cons code offset) glyph-list))) |
(search-forward "ENDCHAR") |
287 |
|
(setq maxlen (max maxlen (- (point) offset)) |
288 |
|
glyph-list (cons (cons code offset) glyph-list)))) |
289 |
|
|
290 |
(setq code-range |
(setq code-range |
291 |
(vector min-code0 max-code0 min-code1 max-code1 |
(vector min-code0 max-code0 min-code1 max-code1 |