(ada-indent-region, ada-check-matching-start, ada-check-defun-name): Fix error

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

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