3580 |
(t (setq buffer-read-only (not buffer-read-only)) |
(t (setq buffer-read-only (not buffer-read-only)) |
3581 |
(force-mode-line-update))) |
(force-mode-line-update))) |
3582 |
(if (vc-backend buffer-file-name) |
(if (vc-backend buffer-file-name) |
3583 |
(message (substitute-command-keys |
(message "%s" (substitute-command-keys |
3584 |
(concat "File is under version-control; " |
(concat "File is under version-control; " |
3585 |
"use \\[vc-next-action] to check in/out")))))) |
"use \\[vc-next-action] to check in/out")))))) |
3586 |
|
|