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

Diff of /lisp/tools/edhira.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 120 
Line 120 
                                                  *default-hirawidth*))                                                   *default-hirawidth*))
                             (setq hira-w (get-info element 'hirawidth))                              (setq hira-w (get-info element 'hirawidth))
                             (if grid (grid-win win))                              (if grid (grid-win win))
                             (draw-skelton-win win prim)                              (draw-skeleton-win win prim)
                             (redraw-win win))                              (redraw-win win))
   
                           (let ((r  (nth p-nth hira-w))                            (let ((r  (nth p-nth hira-w))
Line 144 
Line 144 
     (setq ret (cons points (cons lines aux-info)))      (setq ret (cons points (cons lines aux-info)))
     (clear-win win)      (clear-win win)
     (if grid (grid-win win))      (if grid (grid-win win))
     (draw-skelton-win win ret)      (draw-skeleton-win win ret)
     (redraw-win win)      (redraw-win win)
     ret))      ret))
   

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