diff options
| author | Stefan Monnier | 2012-08-29 11:11:51 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-08-29 11:11:51 -0400 |
| commit | 35e62fc984b108f717c5525ffecf60586eb0737e (patch) | |
| tree | fd00c70fbf024b7e5290086bcbc8a9f226a30a03 /lisp/obsolete | |
| parent | c2c43c2382db292bfe3cccbccad4386f81f9c8a4 (diff) | |
| download | emacs-35e62fc984b108f717c5525ffecf60586eb0737e.tar.gz emacs-35e62fc984b108f717c5525ffecf60586eb0737e.zip | |
* lisp/files.el (read-only-mode): New minor mode.
(toggle-read-only): Use it and mark obsolete.
(find-file--read-only):
* lisp/vc/vc.el (vc-next-action, vc-checkout):
* lisp/vc/vc-cvs.el (vc-cvs-checkout):
* lisp/obsolete/vc-mcvs.el (vc-mcvs-update):
* lisp/ffap.el (ffap--toggle-read-only): Update callers.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/vc-mcvs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/obsolete/vc-mcvs.el b/lisp/obsolete/vc-mcvs.el index 94db90f1d6a..78221945073 100644 --- a/lisp/obsolete/vc-mcvs.el +++ b/lisp/obsolete/vc-mcvs.el | |||
| @@ -329,7 +329,7 @@ This is only possible if Meta-CVS is responsible for FILE's directory.") | |||
| 329 | (if vc-mcvs-use-edit | 329 | (if vc-mcvs-use-edit |
| 330 | (vc-mcvs-command nil 0 file "edit") | 330 | (vc-mcvs-command nil 0 file "edit") |
| 331 | (set-file-modes file (logior (file-modes file) 128)) | 331 | (set-file-modes file (logior (file-modes file) 128)) |
| 332 | (if (equal file buffer-file-name) (toggle-read-only -1)))) | 332 | (if (equal file buffer-file-name) (read-only-mode -1)))) |
| 333 | ;; Check out a particular revision (or recreate the file). | 333 | ;; Check out a particular revision (or recreate the file). |
| 334 | (vc-file-setprop file 'vc-working-revision nil) | 334 | (vc-file-setprop file 'vc-working-revision nil) |
| 335 | (apply 'vc-mcvs-command nil 0 file | 335 | (apply 'vc-mcvs-command nil 0 file |