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)) |