(progn (skip-chars-forward "^\"") (point))))
+(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)