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

diff --git a/lisp/files.el b/lisp/files.el
index 773de12eec9d4d8ad6075b5f8231881a11eec583..4f36427a2e23f502f612c4d033f9dc3d647b5685 100644 (file)
--- 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)