/[emacs]/emacs/lisp/ps-bdf.el
ViewVC logotype

Diff of /emacs/lisp/ps-bdf.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by lute, Mon Jul 4 23:08:56 2005 UTC revision 1.20 by handa, Wed Jul 27 07:59:54 2005 UTC
# Line 272  CODE, where N and CODE are in the follow Line 272  CODE, where N and CODE are in the follow
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

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26