diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-26 18:01:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-26 18:01:42 +0000 |
| commit | defccde391a243f40185b8c12080ffa74032a000 (patch) | |
| tree | 63e3c5a5ec7a94cb07822e6afb5d87f241430cd2 /lisp/vc-hooks.el | |
| parent | 0f374b2b6c496ae9044e94a722f4c9349436f3c0 (diff) | |
| download | emacs-defccde391a243f40185b8c12080ffa74032a000.tar.gz | |
Comment changes.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 9 |
1 files changed, 5 insertions, 4 deletions
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) |