(Fprimitive_undo): Use base buffer's modtime field.

[bpt/emacs.git] / lisp / inc-vers.el

diff --git a/lisp/inc-vers.el b/lisp/inc-vers.el
index 008811f..0a4a43f 100644 (file)
--- a/lisp/inc-vers.el
+++ b/lisp/inc-vers.el
@@ -41,6 +41,10 @@
                           (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)