From e274eb13e0bbe9d200aa813b7ec3ef559f76405c Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 21 Nov 2010 20:39:21 +0100 Subject: [PATCH] * files.el (backup-by-copying-when-mismatch): The default value is now t. * startup.el (normal-top-level): * net/tramp.el (tramp-handle-insert-file-contents): Do not set `backup-by-copying-when-mismatch'. --- lisp/ChangeLog | 9 +++++++++ lisp/files.el | 3 ++- lisp/net/tramp.el | 7 +------ lisp/startup.el | 3 --- 4 files changed, 12 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ac8e56f384..d82eeac7788 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2010-11-21 Michael Albinus + + * files.el (backup-by-copying-when-mismatch): The default value is + now t. + + * startup.el (normal-top-level): + * net/tramp.el (tramp-handle-insert-file-contents): Do not set + `backup-by-copying-when-mismatch'. + 2010-11-21 Jan Djärv * tool-bar.el (tool-bar-setup): Remove save as, print and customize. diff --git a/lisp/files.el b/lisp/files.el index 3b130a20d2b..42a3f87cb11 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -115,13 +115,14 @@ This variable is relevant only if `backup-by-copying' is nil." :type 'boolean :group 'backup) -(defcustom backup-by-copying-when-mismatch nil +(defcustom backup-by-copying-when-mismatch t "Non-nil means create backups by copying if this preserves owner or group. Renaming may still be used (subject to control of other variables) when it would not result in changing the owner or group of the file; that is, for files which are owned by you and whose group matches the default for a new file created there by you. This variable is relevant only if `backup-by-copying' is nil." + :version "24.1" :type 'boolean :group 'backup) (put 'backup-by-copying-when-mismatch 'permanent-local t) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index d5b55064f3d..10b3c7bd04c 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -2861,12 +2861,7 @@ User is always nil." (setq buffer-file-name filename) (setq buffer-read-only (not (file-writable-p filename))) (set-visited-file-modtime) - (set-buffer-modified-p nil) - ;; For root, preserve owner and group when editing files. - (when (string-equal - (tramp-file-name-handler 'file-remote-p filename 'user) - "root") - (set (make-local-variable 'backup-by-copying-when-mismatch) t))) + (set-buffer-modified-p nil)) (when (and (stringp local-copy) (or remote-copy (null tramp-temp-buffer-file-name))) (delete-file local-copy)) diff --git a/lisp/startup.el b/lisp/startup.el index 8dd76b29741..99189b1df72 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -466,9 +466,6 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ;; `user-full-name' is now known; reset its standard-value here. (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) - ;; 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