[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el,v

[Eric S. Raymond]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Eric S. Raymond <esr>   08/05/09 17:30:49

Index: vc-rcs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-rcs.el,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- vc-rcs.el   6 May 2008 07:57:57 -0000       1.71
+++ vc-rcs.el   9 May 2008 17:30:48 -0000       1.72
@@ -547,8 +547,12 @@
                        (and newvers (concat "-r" newvers)))
                  (vc-switches 'RCS 'diff))))
 
-(defun vc-rcs-wash-log ()
-  "Remove all non-comment information from log output."
+(defun vc-rcs-comment-history (file)
+  "Return a string with all log entries stored in BACKEND for FILE."
+  (with-current-buffer "*vc*"
+    ;; Has to be written this way, this function is used by the CVS backend too
+    (vc-call-backend (vc-backend file) 'print-log (list file))
+    ;; Remove cruft
   (let ((separator (concat "^-+\nrevision [0-9.]+\ndate: .*\n"
                           "\\(branches: .*;\n\\)?"
                           "\\(\\*\\*\\* empty log message \\*\\*\\*\n\\)?")))
@@ -563,7 +567,9 @@
     (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)))))
+       (delete-region (match-beginning 0) (match-end 0))))
+    ;; Return the de-crufted comment list
+    (buffer-string)))
 
 (defun vc-rcs-annotate-command (file buffer &optional revision)
   "Annotate FILE, inserting the results in BUFFER.