Mercurial > emacs

comparison lisp/=inc-vers.el @ 4209:e610eb2fbb5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)