From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 19 Jun 1998 16:56:51 +0000 (+0000)
Subject: (normal-top-level):
X-Git-Tag: emacs-20.3~567
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80d715567e279c8223d15d51ff8888464b51ac53;p=emacs.git

(normal-top-level):
For root, set backup-by-copying-when-mismatch to t.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 8350da23658..1bb948ea0a8 100644
--- 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,