[wadalabfont-kit] / lisp / tools / nocompile.l  

Diff of /lisp/tools/nocompile.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:20 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 6 
Line 6 
   (append `(let ((,(eval name-loc) ,def)))    (append `(let ((,(eval name-loc) ,def)))
           body))            body))
   
 (defun show-temporary-nikuduked-skeltons (win)  (defun show-temporary-nikuduked-skeletons (win)
   (clear-win win)    (clear-win win)
   (when (boundp edittee-name)    (when (boundp edittee-name)
     (lets ((assq-list (assq edittee-name primitive-reference-table))      (lets ((assq-list (assq edittee-name primitive-reference-table))
Line 27 
Line 27 
                                      (throw 'continue))                                       (throw 'continue))
                                  (setq count 0))                                   (setq count 0))
                                (when (not (endp shown))                                 (when (not (endp shown))
                                  (draw-temporary-nikuduked-skelton-win                                   (draw-temporary-nikuduked-skeleton-win
                                   win                                    win
                                   (applykanji (car shown))                                    (applykanji (car shown))
                                   50 50                                    50 50

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