diff options
| author | Richard M. Stallman | 1993-11-25 03:46:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-25 03:46:27 +0000 |
| commit | 5032bd23072d5f08365286b7d2f176a205f60c06 (patch) | |
| tree | d2f7c9ce6a1e9cc4f4313db88f9a52954a8294e4 | |
| parent | 3bede93e156e5633e15a87f561bc48e3c3a9ea6b (diff) | |
| download | emacs-5032bd23072d5f08365286b7d2f176a205f60c06.tar.gz emacs-5032bd23072d5f08365286b7d2f176a205f60c06.zip | |
(vc-make-backup-files): Doc fix.
(vc-rcs-status): Use colon, not dash, in the string LOCKS.
| -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 "")) |