Mercurial > emacs
changeset 85091:fecb5847ec94
Remove unused code.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 08 Oct 2007 23:21:09 +0000 |
| parents | c8e66f35aef2 |
| children | 41a7eb9e15b3 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 0 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Mon Oct 08 23:18:31 2007 +0000 +++ b/lisp/vc.el Mon Oct 08 23:21:09 2007 +0000 @@ -3119,26 +3119,6 @@ (and (not vc-make-backup-files) (delete-file backup-name)))))) (message "Checking out %s...done" file)))) -(defun vc-default-wash-log (backend file) - "Remove all non-comment information from log output. -This default implementation works for RCS logs; backends should override -it if their logs are not in RCS format." - (let ((separator (concat "^-+\nrevision [0-9.]+\ndate: .*\n" - "\\(branches: .*;\n\\)?" - "\\(\\*\\*\\* empty log message \\*\\*\\*\n\\)?"))) - (goto-char (point-max)) (forward-line -1) - (while (looking-at "=*\n") - (delete-char (- (match-end 0) (match-beginning 0))) - (forward-line -1)) - (goto-char (point-min)) - (if (looking-at "[\b\t\n\v\f\r ]+") - (delete-char (- (match-end 0) (match-beginning 0)))) - (goto-char (point-min)) - (re-search-forward separator nil t) - (delete-region (point-min) (point)) - (while (re-search-forward separator nil t) - (delete-region (match-beginning 0) (match-end 0))))) - (defun vc-default-revision-completion-table (backend file) nil) (defun vc-check-headers ()