Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(basic-save-buffer-1): Pass new arg to write-region.

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-14 17:24:21 +00:00
parent 575985b101
commit 8909596294
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/files.el
View file

@ -1794,7 +1794,8 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
(unwind-protect
(progn (clear-visited-file-modtime)
(write-region (point-min) (point-max)
tempname nil realname)
tempname nil realname
buffer-file-truename)
(setq succeed t))
;; If writing the temp file fails,
;; delete the temp file.
@ -1818,7 +1819,7 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
(setq setmodes (file-modes buffer-file-name))
(set-file-modes buffer-file-name 511)))
(write-region (point-min) (point-max)
buffer-file-name nil t)))
buffer-file-name nil t buffer-file-truename)))
setmodes))
(defun save-some-buffers (&optional arg exiting)