mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(write-file): Make buffer writable if the new file is.

Browse Source
This commit is contained in:
Karl Heuer 1997-11-20 22:00:57 +00:00
parent d56458467b
commit 6492b55df7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/files.el
View File

@ -1786,6 +1786,10 @@ Interactively, confirmation is required unless you supply a prefix argument."
(error "Canceled"))) (error "Canceled")))
(set-visited-file-name filename (not confirm)))) (set-visited-file-name filename (not confirm))))
(set-buffer-modified-p t) (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)) (save-buffer))
(defun backup-buffer () (defun backup-buffer ()