Mercurial > emacs

changeset 12852:0b04a441c06d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(basic-save-buffer-1): Pass new arg to write-region.
author Richard M. Stallman <rms@gnu.org>
date Mon, 14 Aug 1995 17:24:21 +0000
parents 89d5e3a554de
children 032f8aae6bbe
files lisp/files.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Mon Aug 14 17:13:38 1995 +0000
+++ b/lisp/files.el	Mon Aug 14 17:24:21 1995 +0000
@@ -1794,7 +1794,8 @@
 	    (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 @@
 	       (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)