changeset 29887:8eac40773c01

(basic-save-buffer-2): When temporarily setting file modes, set them to current modes plus 0200, not to 0777.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 23 Jun 2000 07:13:30 +0000
parents 3baeb77c0e39
children 7bf92eb4131b
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))