mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases Activity

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

Browse Source 
negative.
This commit is contained in:
Kenichi Handa 2005-07-27 08:00:52 +00:00
parent e06fd46505
commit 3509543ca9
2 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
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.

26
lisp/ps-bdf.el
View File

@ -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