diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-06-19 16:56:51 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-06-19 16:56:51 +0000 |
| commit | 80d715567e279c8223d15d51ff8888464b51ac53 (patch) | |
| tree | 33b7990533b8f975ea76a1ae8baa4dd4ed843984 /lisp | |
| parent | 174c05aca004a00a9d14b74a45e42ec9d2f2b24e (diff) | |
| download | emacs-80d715567e279c8223d15d51ff8888464b51ac53.tar.gz emacs-80d715567e279c8223d15d51ff8888464b51ac53.tar.bz2 emacs-80d715567e279c8223d15d51ff8888464b51ac53.zip | |
(normal-top-level):
For root, set backup-by-copying-when-mismatch to t.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/startup.el | 3 |
1 files changed, 3 insertions, 0 deletions
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, |