From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 23 Jun 2000 07:13:30 +0000 (+0000)
Subject: (basic-save-buffer-2): When temporarily setting
X-Git-Tag: emacs-pretest-21.0.90~3114
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ff53720257ea847cbaa221e86e0956063d0b547;p=emacs.git

(basic-save-buffer-2): When temporarily setting
file modes, set them to current modes plus 0200, not to 0777.
---

diff --git a/lisp/files.el b/lisp/files.el
index 5015964928f..570a31b808c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2676,7 +2676,7 @@ After saving the buffer, this function runs `after-save-hook'."
 	(cond ((and tempsetmodes (not setmodes))
 	       ;; Change the mode back, after writing.
 	       (setq setmodes (file-modes buffer-file-name))
-	       (set-file-modes buffer-file-name 511)))
+	       (set-file-modes buffer-file-name (logior setmodes 128))))
 	(write-region (point-min) (point-max)
 		      buffer-file-name nil t buffer-file-truename)))
     setmodes))