andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Comment changes.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-26 18:01:42 +00:00
parent 0f374b2b6c
commit defccde391
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/vc-hooks.el
View file

@ -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)