Source

pcl-cvs / cvs-edit.el

Diff from to

cvs-edit.el

       (save-excursion
 	(goto-char (point-max))
 	(insert ?\n)))
-  (if (boundp 'vc-comment-ring) (ring-insert vc-comment-ring (buffer-string)))
+  (if (and (boundp 'vc-comment-ring)
+	   (boundp 'vc-maximum-comment-ring-size))
+      (progn
+	(if (null vc-comment-ring)
+	    (setq vc-comment-ring (make-ring vc-maximum-comment-ring-size)))
+	(ring-insert vc-comment-ring (buffer-string))))
   (let ((win (get-buffer-window cvs-edit-files-buf)))
     (if (and cvs-edit-confirm
 	     (not (and (eq cvs-edit-confirm 'changed)