Mercurial > emacs
comparison lisp/=inc-vers.el @ 4209:e610eb2fbb5b
Try deleting version.el if it's not writable.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 21 Jul 1993 22:16:11 +0000 |
parents | 213978acbc1e |
children | b328e9dec991 |
comparison
equal
deleted
inserted
replaced
4208:bdcdbc742efe | 4209:e610eb2fbb5b |
---|---|
39 (message "New Emacs version will be %s" | 39 (message "New Emacs version will be %s" |
40 (buffer-substring (point) | 40 (buffer-substring (point) |
41 (progn (skip-chars-forward "^\"") (point)))) | 41 (progn (skip-chars-forward "^\"") (point)))) |
42 | 42 |
43 | 43 |
44 (if (and (file-accessible-directory-p "../lisp/") | |
45 (null (file-writable-p "../lisp/version.el"))) | |
46 (delete-file "../lisp/version.el")) | |
44 (write-region (point-min) (point-max) "../lisp/version.el" nil 'nomsg) | 47 (write-region (point-min) (point-max) "../lisp/version.el" nil 'nomsg) |
45 (erase-buffer) | 48 (erase-buffer) |
46 (set-buffer-modified-p nil) | 49 (set-buffer-modified-p nil) |
47 | 50 |
48 (kill-emacs) | 51 (kill-emacs) |