From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Sep 1994 04:15:33 +0000 (+0000)
Subject: (file-ownership-preserved-p): New function.
X-Git-Tag: emacs-19.34~6867
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb0cd911679ab4b165a222d19f72ce9b9bc23da7;p=emacs.git

(file-ownership-preserved-p): New function.
---

diff --git a/lisp/files.el b/lisp/files.el
index b26da5dde77..93467439621 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1429,6 +1429,13 @@ we do not remove backup version numbers, only true file version numbers."
 			 (string-match "~\\'" name)
 			 (length name))))))))
 
+(defun file-ownership-preserved-p (file)
+  "Returns t if deleting FILE and rewriting it would preserve the owner."
+  (let ((handler (find-file-name-handler file 'file-ownership-preserved-p)))
+    (if handler
+	(funcall handler 'file-ownership-preserved-p file)
+      (= (nth 2 (file-attributes file)) (user-uid)))))
+
 (defun file-name-sans-extension (filename)
   "Return FILENAME sans final \"extension\".
 The extension, in a file name, is the part that follows the last `.'."