diff options
| author | Michael Albinus | 2010-10-30 18:28:17 +0200 |
|---|---|---|
| committer | Michael Albinus | 2010-10-30 18:28:17 +0200 |
| commit | a057950d77bbd03434f6a286c81a259824d7b7ad (patch) | |
| tree | 8f59850f4b72f3c83f8b93a4f1fea9597e3ac249 | |
| parent | d2ce10d221f16a8e03a7c4363d9ad61984087ff0 (diff) | |
| download | emacs-a057950d77bbd03434f6a286c81a259824d7b7ad.tar.gz emacs-a057950d77bbd03434f6a286c81a259824d7b7ad.zip | |
* net/tramp.el (tramp-handle-insert-file-contents): For root,
preserve owner and group when editing files. (Bug#7289)
Please contact me, if you have problems syncing with the trunk.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0a6999a81c1..3944fdebc69 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-10-30 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * net/tramp.el (tramp-handle-insert-file-contents): For root, | ||
| 4 | preserve owner and group when editing files. (Bug#7289) | ||
| 5 | |||
| 1 | 2010-10-29 Glenn Morris <rgm@gnu.org> | 6 | 2010-10-29 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * speedbar.el (speedbar-mode): | 8 | * speedbar.el (speedbar-mode): |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 426785dd9a4..50fbaed01e0 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -5008,7 +5008,11 @@ coding system might not be determined. This function repairs it." | |||
| 5008 | (setq buffer-file-name filename) | 5008 | (setq buffer-file-name filename) |
| 5009 | (setq buffer-read-only (not (file-writable-p filename))) | 5009 | (setq buffer-read-only (not (file-writable-p filename))) |
| 5010 | (set-visited-file-modtime) | 5010 | (set-visited-file-modtime) |
| 5011 | (set-buffer-modified-p nil)) | 5011 | (set-buffer-modified-p nil) |
| 5012 | ;; For root, preserve owner and group when editing files. | ||
| 5013 | (when (string-equal (file-remote-p filename 'user) "root") | ||
| 5014 | (set (make-local-variable 'backup-by-copying-when-mismatch) t) | ||
| 5015 | (put 'backup-by-copying-when-mismatch 'permanent-local t))) | ||
| 5012 | (when (and (stringp local-copy) | 5016 | (when (and (stringp local-copy) |
| 5013 | (or remote-copy (null tramp-temp-buffer-file-name))) | 5017 | (or remote-copy (null tramp-temp-buffer-file-name))) |
| 5014 | (delete-file local-copy)) | 5018 | (delete-file local-copy)) |