From: Richard M. Stallman Date: Wed, 21 Jul 1993 22:16:11 +0000 (+0000) Subject: Try deleting version.el if it's not writable. X-Git-Tag: emacs-19.34~11642 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e0ed2de52c3fb63591ebda076c4a7407fe5fa84;p=emacs.git Try deleting version.el if it's not writable. --- diff --git a/lisp/inc-vers.el b/lisp/inc-vers.el index 008811f54cf..6523dafd21b 100644 --- a/lisp/inc-vers.el +++ b/lisp/inc-vers.el @@ -41,6 +41,9 @@ (progn (skip-chars-forward "^\"") (point)))) +(if (and (file-accessible-directory-p "../lisp/") + (null (file-writable-p "../lisp/version.el"))) + (delete-file "../lisp/version.el")) (write-region (point-min) (point-max) "../lisp/version.el" nil 'nomsg) (erase-buffer) (set-buffer-modified-p nil)