;;; 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
(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)