# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 959912919 0
# Node ID 429ae71326c27dfcbce8666b34a7108ece98e2a9
# Parent  8583675a6f9610e6b16125cd5a303406cda21422
(log-edit-mode): Make vc-comment-ring-index local.
(log-edit-done): Only add the comment to the ring if it's different
from the last comment entered.

diff -r 8583675a6f96 -r 429ae71326c2 lisp/log-edit.el
--- a/lisp/log-edit.el	Fri Jun 02 00:48:43 2000 +0000
+++ b/lisp/log-edit.el	Fri Jun 02 02:28:39 2000 +0000
@@ -5,7 +5,7 @@
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs cvs commit log
 ;; Version: $Name:  $
-;; Revision: $Id: log-edit.el,v 1.4 2000/05/10 22:20:51 monnier Exp $
+;; Revision: $Id: log-edit.el,v 1.5 2000/05/21 02:13:26 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -28,10 +28,8 @@
 
 ;; Todo:
 
-;; - Remove a single leading `* <file>' in log-edit-insert-changelog
 ;; - Move in VC's code
 ;; - Add compatibility for VC's hook variables
-;; - add compatibility with cvs-edit.el
 
 ;;; Code:
 
@@ -177,7 +175,8 @@
 the package from which this is used might also provide additional
 commands (under C-x v for VC, for example).
 
-\\{log-edit-mode-map}")
+\\{log-edit-mode-map}"
+  (make-local-variable 'vc-comment-ring-index))
 
 (defun log-edit-hide-buf (&optional buf where)
   (when (setq buf (get-buffer (or buf log-edit-files-buf)))
@@ -205,7 +204,10 @@
       (save-excursion
 	(goto-char (point-max))
 	(insert ?\n)))
-  (if (boundp 'vc-comment-ring) (ring-insert vc-comment-ring (buffer-string)))
+  (let ((comment (buffer-string)))
+    (when (and (boundp 'vc-comment-ring) (ring-p vc-comment-ring)
+	       (not (equal comment (ring-ref vc-comment-ring 0))))
+      (ring-insert vc-comment-ring comment)))
   (let ((win (get-buffer-window log-edit-files-buf)))
     (if (and log-edit-confirm
 	     (not (and (eq log-edit-confirm 'changed)