[xyzzy:08077] Re: xyzzy からディレクトリを作成

[Hiroshi Saito <HiroshiSaito@xxxxxxx>]

サイトウです。
柳瀬さんこんにちは。

(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>