diff options
| -rw-r--r-- | lisp/vc-hooks.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 629d5caa69a..283d2bf56eb 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el | |||
| @@ -35,8 +35,8 @@ The first pair corresponding to a given back end is used as a template | |||
| 35 | when creating new masters.") | 35 | when creating new masters.") |
| 36 | 36 | ||
| 37 | (defvar vc-make-backup-files nil | 37 | (defvar vc-make-backup-files nil |
| 38 | "*If non-nil, backups of registered files are made according to | 38 | "*If non-nil, backups of registered files are made as with other files. |
| 39 | the make-backup-files variable. Otherwise, prevents backups being made.") | 39 | If nil (the default), for files covered by version control don't get backups.") |
| 40 | 40 | ||
| 41 | (defvar vc-rcs-status t | 41 | (defvar vc-rcs-status t |
| 42 | "*If non-nil, revision and locks on RCS working file displayed in modeline. | 42 | "*If non-nil, revision and locks on RCS working file displayed in modeline. |
| @@ -216,7 +216,7 @@ visiting FILE." | |||
| 216 | (narrow-to-region (match-beginning 1) (match-end 1)) | 216 | (narrow-to-region (match-beginning 1) (match-end 1)) |
| 217 | (goto-char (point-min)) | 217 | (goto-char (point-min)) |
| 218 | (while (re-search-forward lock-pattern nil t) | 218 | (while (re-search-forward lock-pattern nil t) |
| 219 | (replace-match (if (eobp) "" "-") t t)) | 219 | (replace-match (if (eobp) "" ":") t t)) |
| 220 | (buffer-string))) | 220 | (buffer-string))) |
| 221 | (status | 221 | (status |
| 222 | (if (not (string-equal locks "")) | 222 | (if (not (string-equal locks "")) |