(basic-save-buffer-2): When temporarily setting

file modes, set them to current modes plus 0200, not to 0777.

1 files changed, 1 insertions, 1 deletions

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))