From defccde391a243f40185b8c12080ffa74032a000 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 26 Jun 1996 18:01:42 +0000 Subject: Comment changes. --- lisp/vc-hooks.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/vc-hooks.el') diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 86e53116583..8a4184a6bad 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -880,15 +880,16 @@ control system name." (and vc-display-status (vc-status file))))) ;; If the file is locked by some other user, make ;; the buffer read-only. Like this, even root - ;; cannot modify a file without locking it first. + ;; cannot modify a file that someone else has locked. (and vc-type (equal file (buffer-file-name)) (vc-locking-user file) (not (string= (user-login-name) (vc-locking-user file))) (setq buffer-read-only t)) - ;; If the user is root, and the file is not owner-readable, - ;; then pretend that we can't read it - ;; even though we can (because root can read anything). + ;; If the user is root, and the file is not owner-writable, + ;; then pretend that we can't write it + ;; even though we can (because root can write anything). + ;; This way, even root cannot modify a file that isn't locked. (and vc-type (equal file (buffer-file-name)) (not buffer-read-only) -- cgit v1.2.1