2007-12-03から1日間の記事一覧
(setq $load-session #'load-session) (defun load-session (filename) (let ((r (funcall $load-session filename)) (l (substitute-string filename "\\.ssn$" ".l"))) (if (file-readable-p l) (load-file l)) r)) たとえば「\user\test.ssn」を開くとき…