Mercurial > emacs
comparison lisp/vc-hooks.el @ 4310:52d82c1a3948
(vc-rcs-status): Removing any trailing "-".
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Tue, 27 Jul 1993 19:28:46 +0000 |
| parents | bc40c23884ec |
| children | 0e9960f5e99c |
comparison
equal
deleted
inserted
replaced
| 4309:c79a44360ed9 | 4310:52d82c1a3948 |
|---|---|
| 214 (locks | 214 (locks |
| 215 (save-restriction | 215 (save-restriction |
| 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 "-" 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 "")) |
| 223 locks | 223 locks |
| 224 (goto-char (point-min)) | 224 (goto-char (point-min)) |