From 8e0ed2de52c3fb63591ebda076c4a7407fe5fa84 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Jul 1993 22:16:11 +0000 Subject: [PATCH] Try deleting version.el if it's not writable. --- lisp/inc-vers.el | 3 +++ 1 file changed, 3 insertions(+) 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) -- 2.39.5