*** KaiSu-Regular	Tue Nov  7 10:11:32 1995
--- KaiSu-Regular.orig	Tue May 31 12:05:42 1994
***************
*** 3770,3792 ****
  end
  definefont pop
  /KaiSu-Regular
! %% modified by shihong@mbox.kyoto-inet.or.jp (LAO Shihong)
! 25 dict begin
! /_@ASCIIName /NarrowCourier def
! 
! SharedFontDirectory _@ASCIIName known not {
!     _@ASCIIName /Courier findfont dup maxlength dict begin
!     {1 index /FID ne 2 index /UniqueID ne and {def}{pop pop} ifelse} forall
!     /FontName _@ASCIIName def
!     /UniqueID 4990101 def
!     /FontMatrix FontMatrix [5 6 div 0 0 1 0 0] matrix concatmatrix def
!     /Encoding StandardEncoding def
!     currentdict
!     end definefont pop
! } if
! /_@ASCII _@ASCIIName findfont def
! %% endlao
! 
  /FontName /KaiSu-Regular def
  /Encoding [0 1 2 3] def
  /SubsVector <00 80 21 58> def
--- 3770,3776 ----
  end
  definefont pop
  /KaiSu-Regular
! 17 dict begin
  /FontName /KaiSu-Regular def
  /Encoding [0 1 2 3] def
  /SubsVector <00 80 21 58> def
***************
*** 3798,3805 ****
  /FMapType 6 def
  /FDepVector
  [
! %		/Times-Roman	findfont
! 		_@ASCII 
  		/NotDefFont	findfont
  		/CFT1JacksonFontSupp	findfont
  		/NotDefFont	findfont
--- 3782,3788 ----
  /FMapType 6 def
  /FDepVector
  [
! 		/LMCourier-Bold	findfont
  		/NotDefFont	findfont
  		/CFT1JacksonFontSupp	findfont
  		/NotDefFont	findfont