(normal-top-level):

For root, set backup-by-copying-when-mismatch to t.

diff --git a/lisp/startup.el b/lisp/startup.el
index 8350da2365888a9d910400883de5cdee3b3bd05c..1bb948ea0a8196bfca985cd546e6d82fb8f69afc 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -386,6 +386,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
       (save-excursion
        (set-buffer (get-buffer "*Messages*"))
        (setq default-directory dir)))
+    ;; For root, preserve owner and group when editing files.
+    (if (equal (user-uid) 0)
+       (setq backup-by-copying-when-mismatch t))
     ;; Look in each dir in load-path for a subdirs.el file.
     ;; If we find one, load it, which will add the appropriate subdirs
     ;; of that dir into load-path,