From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 14 Aug 1995 17:24:21 +0000 (+0000)
Subject: (basic-save-buffer-1): Pass new arg to write-region.
X-Git-Tag: emacs-19.34~3008
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8909596294fe0aebe9451e432d74a1c368dfb737;p=emacs.git

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

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)