* files.el (backup-by-copying-when-mismatch): Make it a buffer local

variable (permanent-local).

* net/tramp.el (tramp-handle-insert-file-contents): Do not set
`permanent-local' property for `(backup-by-copying-when-mismatch'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 135e1ea750ff7062f2c35ec72fc8c035de4072d3..d7762db1919c9ed3196c91b77ea6c2be5cfebd25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2010-11-06  Michael Albinus  <michael.albinus@gmx.de>
+
+       * files.el (backup-by-copying-when-mismatch): Make it a buffer local
+       variable (permanent-local).
+
+       * net/tramp.el (tramp-handle-insert-file-contents): Do not set
+       `permanent-local' property for `(backup-by-copying-when-mismatch'.
+
 2010-11-06  Eli Zaretskii  <eliz@gnu.org>
 
        * ls-lisp.el (insert-directory): Doc fix.  (bug#7285)

diff --git a/lisp/files.el b/lisp/files.el
index 02f5f8fdacf5c6f06e6c8d388c916a0568f027a5..0664bfd3844198bec8a57024156dbe300b422400 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -123,6 +123,7 @@ the default for a new file created there by you.
 This variable is relevant only if `backup-by-copying' is nil."
   :type 'boolean
   :group 'backup)
+(put 'backup-by-copying-when-mismatch 'permanent-local t)
 
 (defcustom backup-by-copying-when-privileged-mismatch 200
   "Non-nil means create backups by copying to preserve a privileged owner.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 50fbaed01e0d3790812e58ce71137c87d726b9a0..17c8c074c464668c0912a299e78eb67b15a1f31f 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -5011,8 +5011,7 @@ coding system might not be determined.  This function repairs it."
            (set-buffer-modified-p nil)
            ;; For root, preserve owner and group when editing files.
            (when (string-equal (file-remote-p filename 'user) "root")
-             (set (make-local-variable 'backup-by-copying-when-mismatch) t)
-             (put 'backup-by-copying-when-mismatch 'permanent-local t)))
+             (set (make-local-variable 'backup-by-copying-when-mismatch) t)))
          (when (and (stringp local-copy)
                     (or remote-copy (null tramp-temp-buffer-file-name)))
            (delete-file local-copy))