(if (and (file-accessible-directory-p "../lisp/")
(null (file-writable-p "../lisp/version.el")))
(delete-file "../lisp/version.el"))
+(if (eq system-type 'ms-dos) (setq buffer-file-type t))
(write-region (point-min) (point-max) "../lisp/version.el" nil 'nomsg)
(erase-buffer)
(set-buffer-modified-p nil)