[wadalabfont-kit] / lisp / server.l  

Diff of /lisp/server.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:18 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 170 
Line 170 
 ;       (err:zero-division (function throwerr))  ;       (err:zero-division (function throwerr))
 ;       (err:undefined-function (function throwerr)))  ;       (err:undefined-function (function throwerr)))
 ;    (catch 'err  ;    (catch 'err
   (skelton2type1 kanji tag))    (skeleton2type1 kanji tag))
 (defmacro gettype1 (kanji meshsize)  (defmacro gettype1 (kanji meshsize)
   (lets ((currentfont (eval (eval (var 'currentfont))))    (lets ((currentfont (eval (eval (var 'currentfont))))
          (tag (assqcadr 'type currentfont))           (tag (assqcadr 'type currentfont))

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help