insert2.l(新規作成) (provide "insert2") (in-package "editor") (export '(insert-file2 *default-insert-file-directory*)) (defvar *default-insert-file-directory* nil) (defun insert-file2 (filename &optional encoding) (interactive "*fInsert file: \n0zEncoding: " :title0 "Insert file" :default0 *default-insert-file-directory*) (let ((*expected-fileio-encoding* (or encoding *expected-fileio-encoding*))) (de
