[xyzzy:08077] Re: xyzzy からディレクトリを作成
- Subject: [xyzzy:08077] Re: xyzzy からディレクトリを作成
- From: Hiroshi Saito <HiroshiSaito@xxxxxxx>
- X-mailer: Becky! ver. 2.00.03
サイトウです。
柳瀬さんこんにちは。
(valid-path-p)だとネットワークドライブのパスだと
存在しなくても t が返ってきてしまうようなので、
(check-valid-pathname) に変更したら、
ネットワークドライブでもうまく行きました。
;;; find-file時にディレクトリが作れるように
(defun make-directory-unless-directory-exists (filename)
- (unless (valid-path-p filename)
+ (unless (check-valid-pathname filename)
(let ((d (directory-namestring filename)))
(when (yes-or-no-p "~a~%ディレクトリがないけど作る?" d)
(create-directory d))))
nil)
--
Hiroshi Saito <HiroshiSaito@xxxxxxx>