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