Commit 3509543c authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(bdf-read-font-info): Ignore glyphs whose ENCODING is

negative.
parent e06fd465
2005-07-27 Kenichi Handa <handa@m17n.org>
* ps-bdf.el (bdf-read-font-info): Ignore glyphs whose ENCODING is
negative.
* ps-mule.el (ps-mule-bitmap-prologue): Fix arguments to
setcharwidth.
2005-07-26 Stefan Monnier <monnier@iro.umontreal.ca>
 
* smerge-mode.el (smerge-ediff): Use insert-buffer-substring.
......
......@@ -272,18 +272,20 @@ CODE, where N and CODE are in the following relation:
(while (search-forward "\nSTARTCHAR" nil t)
(setq offset (line-beginning-position))
(search-forward "\nENCODING")
(setq code (read (current-buffer))
code0 (lsh code -8)
code1 (logand code 255)
min-code (min min-code code)
max-code (max max-code code)
min-code0 (min min-code0 code0)
max-code0 (max max-code0 code0)
min-code1 (min min-code1 code1)
max-code1 (max max-code1 code1))
(search-forward "ENDCHAR")
(setq maxlen (max maxlen (- (point) offset))
glyph-list (cons (cons code offset) glyph-list)))
(setq code (read (current-buffer)))
(if (< code 0)
(search-forward "ENDCHAR")
(setq code0 (lsh code -8)
code1 (logand code 255)
min-code (min min-code code)
max-code (max max-code code)
min-code0 (min min-code0 code0)
max-code0 (max max-code0 code0)
min-code1 (min min-code1 code1)
max-code1 (max max-code1 code1))
(search-forward "ENDCHAR")
(setq maxlen (max maxlen (- (point) offset))
glyph-list (cons (cons code offset) glyph-list))))
(setq code-range
(vector min-code0 max-code0 min-code1 max-code1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment