X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/fd7fa35a05844aaa716dc8c8511947bed03ca989..4bbc4094c4be498498aa0859a261b441c575f019:/lisp/inc-vers.el

diff --git a/lisp/inc-vers.el b/lisp/inc-vers.el
index 514aac3f10..0a4a43f0ea 100644
--- a/lisp/inc-vers.el
+++ b/lisp/inc-vers.el
@@ -1,11 +1,10 @@
 ;;; inc-vers.el --- load this to increment the recorded Emacs version number.
 
+;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+
 ;; Maintainer: FSF
-;; Last-Modified: 31 Oct 1989
 ;; Keywords: internal
 
-;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -42,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)