changeset 31977:2f79c1ebd1fe

(cvs-ediff-exit-hook): Kill buffer before window. (cvs-ediff-diff): Fix typo. (cvs-revert-if-needed): Don't bother preserving read-only.

--- a/lisp/pcvs.el	Fri Sep 29 03:11:01 2000 +0000
+++ b/lisp/pcvs.el	Fri Sep 29 03:14:36 2000 +0000
@@ -8,13 +8,13 @@
 ;;	(Jim Blandy) [e-mail]
 ;;	(Karl Fogel) [e-mail]
 ;;	(Jim Kingdon) [e-mail]
-;;      (Stefan Monnier) [e-mail]
-;;      (Greg Klanderman) [e-mail]
-;;      (Jari Aalto+mail.emacs) [e-mail]
+;;	(Stefan Monnier) [e-mail]
+;;	(Greg Klanderman) [e-mail]
+;;	(Jari Aalto+mail.emacs) [e-mail]
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/[e-mail]
 ;; Keywords: CVS, version control, release management
 ;; Version: $Name:  $
-;; Revision: $Id: pcvs.el,v 1.8 2000/08/09 15:27:48 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.9 2000/08/16 20:27:37 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -1444,8 +1444,8 @@
   (dolist (tb tmp-bufs)
     (when (and tb (buffer-live-p tb) (not (buffer-modified-p tb)))
       (let ((win (get-buffer-window tb t)))
-	(when win (delete-window win))
-	(kill-buffer tb))))
+	(kill-buffer tb)
+	(when (window-live-p win) (delete-window win)))))
   ;; switch back to the *cvs* buffer
   (when (and cvs-buf (buffer-live-p cvs-buf)
 	     (not (get-buffer-window cvs-buf t)))
@@ -1454,7 +1454,7 @@
 (defun cvs-ediff-diff (b1 b2)
   (let ((ediff-after-quit-destination-buffer (current-buffer))
 	(startup-hook '(cvs-ediff-startup-hook)))
-    (ediff-buffers b1 b2 startup-hook 'ediff-revisions)))
+    (ediff-buffers b1 b2 startup-hook 'ediff-revision)))
 
 (defun cvs-ediff-merge (b1 b2 base out)
   (let ((ediff-after-quit-destination-buffer (current-buffer))
@@ -1984,15 +1984,13 @@
 		  ;; read-write changes) which is not changed by `commit'.
 		  (buffer-modified-p buffer))
 	(with-current-buffer buffer
-	  (let ((cvs-buf-was-ro buffer-read-only))
-	    (ignore-errors
-	      (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes)
-	      ;; `preserve-modes' avoids changing the (minor) modes.  But we
-	      ;; do want to reset the mode for VC, so we do it explicitly.
-	      (vc-find-file-hook))
-	    ;; protect the buffer-read-only setting
-	    (if cvs-buf-was-ro (toggle-read-only 1))))))))
-
+	  (ignore-errors
+	    (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes)
+	    ;; `preserve-modes' avoids changing the (minor) modes.  But we
+	    ;; do want to reset the mode for VC, so we do it explicitly.
+	    (vc-find-file-hook)
+	    (when (eq (cvs-fileinfo->type fileinfo) 'CONFLICT)
+	      (smerge-mode 1))))))))
 
 
 (defun cvs-change-cvsroot (newroot)