[wadalabfont-kit] / scripts / load.l

Annotation of /scripts/load.l

Revision: 1.1 - (view) (download)

1 :	ktanaka	1.1	(defun load-directory (dir)
2 :			(lets ((base-directory dir))
3 :			(exfile (string-append base-directory "/" "load.l"))))
4 :			;(setq source-load t)
5 :			(load-directory "../renderer/")
6 :			(load-directory "../primdata/")
7 :			(load-directory "../jointdata/")
8 :			(load-directory "../kanjidata/")
9 :			(setq backtrace nil)
10 :			(setq oldvalue nil)
11 :			(setq gc-hook #'(lambda (x)
12 :			(setq backtrace (backtrace))
13 :			(setq oldvalue (oldvalue))))
14 :
15 :			;(out-to-ps-all alljis 'mincho "alljis.ps")