make-temp-file definition is not effective
Shuhei KOBAYASHI
shuhei @ aqua.ocn.ne.jp
2003年 7月 3日 (木) 18:53:06 JST
APEL 10.6 のリリース目標は 7/5 でしょうね.
Yuuichi Teranishi <teranisi @ gohome.org> writes:
> > > これくらいなら poe-18.el で以下のように吸収すればいいかなと思います。
[...]
> これらの対処をしたら Nemacs 3.3.2 @ 18.59 で動くことも確認しました。
Emacs 18 で when や with-temp-buffer を使っても問題なく byte-compile
されていますか? いや, 動作確認できているので問題ないのでしょうけど...
APEL-MK の config-apel が (require 'poe) するので問題ないということ?
(defun make-directory-internal (dirname)
"Create a directory. One argument, a file name string."
(let ((dir (expand-file-name dirname)))
(if (file-exists-p dir)
(signal 'file-already-exists
(list "Creating directory: %s is already exist" dir))
(let ((exit-status (call-process "mkdir" nil nil nil dir)))
(if (or (and (numberp exit-status)
(not (zerop exit-status)))
(stringp exit-status))
(error "Create directory %s failed.")
;; `make-directory' of v19 and later returns nil for success.
)))))
;; when はともかく with-temp-buffer の方は面倒なので気にしない方が良い?
--
Shuhei KOBAYASHI
More information about the APEL-ja
mailing list