changeset 20291:96eee1e730a1

(write-file): Make buffer writable if the new file is.
author Karl Heuer <kwzh@gnu.org>
date Thu, 20 Nov 1997 22:00:57 +0000
parents 456ed25a8605
children 2befa7396e42
files lisp/files.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Thu Nov 20 21:59:02 1997 +0000
+++ b/lisp/files.el	Thu Nov 20 22:00:57 1997 +0000
@@ -1786,6 +1786,10 @@
 		 (error "Canceled")))
 	(set-visited-file-name filename (not confirm))))
   (set-buffer-modified-p t)
+  ;; Make buffer writable if file is writable.
+  (and buffer-file-name
+       (file-writable-p buffer-file-name)
+       (setq buffer-read-only nil))
   (save-buffer))
 
 (defun backup-buffer ()