changeset 22512:6c1c72f0145b

(normal-top-level): For root, set backup-by-copying-when-mismatch to t.
author Karl Heuer <kwzh@gnu.org>
date Fri, 19 Jun 1998 16:56:51 +0000
parents f5b3f55fc25b
children bbf2827a9356
files lisp/startup.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Fri Jun 19 16:55:43 1998 +0000
+++ b/lisp/startup.el	Fri Jun 19 16:56:51 1998 +0000
@@ -386,6 +386,9 @@
       (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,