[Emacs-diffs] Changes to emacs/lisp/ps-bdf.el

[Kenichi Handa]

Index: emacs/lisp/ps-bdf.el
diff -c emacs/lisp/ps-bdf.el:1.19 emacs/lisp/ps-bdf.el:1.20
*** emacs/lisp/ps-bdf.el:1.19   Mon Jul  4 23:08:56 2005
--- emacs/lisp/ps-bdf.el        Wed Jul 27 07:59:54 2005
***************
*** 272,289 ****
            (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-range
                  (vector min-code0 max-code0 min-code1 max-code1
--- 272,291 ----
            (while (search-forward "\nSTARTCHAR" nil t)
              (setq offset (line-beginning-position))
              (search-forward "\nENCODING")
!             (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