Re: Emacs doesn't preserve the file access permission.

[Eric Hanchrow]

I think this fixes it:

@@ -3235,11 +3237,13 @@
 ;; but inhibited if one of write-file-functions returns non-nil.
 ;; It returns a value (MODES . BACKUPNAME), like backup-buffer.
 (defun basic-save-buffer-1 ()
+  (let ((return-value
   (if save-buffer-coding-system
       (let ((coding-system-for-write save-buffer-coding-system))
        (basic-save-buffer-2))
-    (basic-save-buffer-2))
-  (setq explicit-buffer-file-coding-system last-coding-system-used))
+           (basic-save-buffer-2))))
+    (setq explicit-buffer-file-coding-system last-coding-system-used)
+    return-value))

-- 
I ... don't want programming to be "really interesting" any more than
I want my toaster to be "really interesting".  I want my toaster to
get the job done and I do not want to hear about exciting new
tungesten alloys in the heating wires nor do I want to subscribe to
Toaster Today magazine.

        -- Daniel Weinreb <address@hidden>, ll1 mailing list