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

Diff of /lisp/ulx-tools.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:19 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 1 
Line 1 
 ;;----------------------;;  ;;----------------------;;
 ;; skelton-edit.l       ;;  ;; skeleton-edit.l       ;;
 ;;   for skelton editor ;;  ;;   for skeleton editor ;;
 ;;----------------------;;  ;;----------------------;;
   
 ;; ------ ;;  ;; ------ ;;
Line 18 
Line 18 
       (call (string-append "rm " tmpfile))        (call (string-append "rm " tmpfile))
       ret)))        ret)))
   
 (defun reload-skelton ((load-primitive-all t))  (defun reload-skeleton ((load-primitive-all t))
   (reload-skeleton load-primitive-all))    (reload-skeleton load-primitive-all))
   
 (defun reload-skeleton ((load-primitive-all t))  (defun reload-skeleton ((load-primitive-all t))
Line 88 
Line 88 
     (cd curdir)      (cd curdir)
     nil))      nil))
   
 (defun skelton-edit-and-save (editee editee-name filename)  (defun skeleton-edit-and-save (editee editee-name filename)
   (print editee-name terminal-output)    (print editee-name terminal-output)
   (let* ((result (skelton-edit editee))    (let* ((result (skeleton-edit editee))
          (standard-output (appendopen (stream filename))))           (standard-output (appendopen (stream filename))))
     (prind `(setq ,editee-name ',result))      (prind `(setq ,editee-name ',result))
     (terpri)      (terpri)
     (close standard-output)))      (close standard-output)))
   
 (defun reload-ulx-tools ()  (defun reload-ulx-tools ()
   (reload-skelton t))    (reload-skeleton t))
   
 (reload-ulx-tools)  (reload-ulx-tools)

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