(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 5015964928ffc2ad96da6b479ab8840d949d3ff8..570a31b808c7f596e2ce2b82399c8cdd3e1915f7 100644 (file)
--- 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))