(lets ((base-directory dir)) |
(lets ((base-directory dir)) |
(exfile (string-append base-directory "/" "load.l")))) |
(exfile (string-append base-directory "/" "load.l")))) |
; コンパイラが通らない時は次の行をコメントアウト |
; コンパイラが通らない時は次の行をコメントアウト |
(setq source-load t) |
(or (boundp 'source-load )(setq source-load t)) |
|
; |
|
(setq oldvalue nil) |
|
(setq backtrace nil) |
|
(setq gc-hook #'(lambda (n) |
|
(setq oldvalue(oldvalue)) |
|
(setq backtrace (backtrace)))) |
; |
; |
(load-directory "../../../renderer/") |
(load-directory "../../../renderer/") |
(load-directory "../../../primdata/") |
(load-directory "../../../primdata/") |
(load-directory "../../../jointdata/") |
(load-directory "../../../jointdata/") |
(load-directory "../../../kanjidata/") |
(load-directory "../../../kanjidata/") |
|
; |
|
|
(setq minchowidth 8.0) |
(setq minchowidth 8.0) |
(setq hirawidth (times minchowidth 0.05)) |
(setq hirawidth (times minchowidth 0.05)) |