From 8909596294fe0aebe9451e432d74a1c368dfb737 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 14 Aug 1995 17:24:21 +0000 Subject: [PATCH] (basic-save-buffer-1): Pass new arg to write-region. --- lisp/files.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 773de12eec9..4f36427a2e2 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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) -- 2.39.2