Mercurial > emacs
comparison lisp/vc-sccs.el @ 103937:b0f266cccf0b
* vc-rcs.el (vc-rcs-find-file-hook):
* vc-sccs.el (vc-sccs-find-file-hook): Fix cut and paste error.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 16 Jul 2009 20:52:53 +0000 |
| parents | af4ee0cb7fb7 |
| children | f4a041a8c69d |
comparison
equal
deleted
inserted
replaced
| 103936:7ffee8f51e96 | 103937:b0f266cccf0b |
|---|---|
| 393 | 393 |
| 394 (defun vc-sccs-find-file-hook () | 394 (defun vc-sccs-find-file-hook () |
| 395 ;; If the file is locked by some other user, make | 395 ;; If the file is locked by some other user, make |
| 396 ;; the buffer read-only. Like this, even root | 396 ;; the buffer read-only. Like this, even root |
| 397 ;; cannot modify a file that someone else has locked. | 397 ;; cannot modify a file that someone else has locked. |
| 398 (stringp (vc-state buffer-file-name 'SCCS)) | 398 (and (stringp (vc-state buffer-file-name 'SCCS)) |
| 399 (setq buffer-read-only t)) | 399 (setq buffer-read-only t))) |
| 400 | 400 |
| 401 | 401 |
| 402 ;;; | 402 ;;; |
| 403 ;;; Internal functions | 403 ;;; Internal functions |
| 404 ;;; | 404 ;;; |