(rmail-select-summary): Preserve rmail buffer's value of

[gnu-emacs] / lisp / inc-vers.el

diff --git a/lisp/inc-vers.el b/lisp/inc-vers.el
index 008811f54cfdeeb334e6447f9f2b9b6de141a59f..0a4a43f0ea8847ae5b0d4d060449ce3387c21933 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)