# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 961744410 0
# Node ID 8eac40773c01b6c098deda56f73ad71169bb685b
# Parent  3baeb77c0e3915390974841916e0884f4a0e651c
(basic-save-buffer-2): When temporarily setting
file modes, set them to current modes plus 0200, not to 0777.

diff -r 3baeb77c0e39 -r 8eac40773c01 lisp/files.el
--- a/lisp/files.el	Fri Jun 23 07:13:08 2000 +0000
+++ b/lisp/files.el	Fri Jun 23 07:13:30 2000 +0000
@@ -2676,7 +2676,7 @@
 	(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))