From 80d715567e279c8223d15d51ff8888464b51ac53 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 19 Jun 1998 16:56:51 +0000 Subject: [PATCH] (normal-top-level): For root, set backup-by-copying-when-mismatch to t. --- lisp/startup.el | 3 +++ 1 file changed, 3 insertions(+) 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, -- 2.39.5