[Emacs-diffs] Changes to emacs/lisp/pcvs.el

[Stefan Monnier]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.40 emacs/lisp/pcvs.el:1.41
*** emacs/lisp/pcvs.el:1.40     Fri Sep 13 14:25:26 2002
--- emacs/lisp/pcvs.el  Fri Sep 13 15:09:45 2002
***************
*** 14,20 ****
  ;;    (Jari Aalto+mail.emacs) address@hidden
  ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
  ;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.40 2002/09/13 18:25:26 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 14,20 ----
  ;;    (Jari Aalto+mail.emacs) address@hidden
  ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
  ;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.41 2002/09/13 19:09:45 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 2002,2010 ****
         (tmpbuf (cvs-temp-buffer)))
      (when (and (not silent) (equal cvs-confirm-removals 'list))
        (with-current-buffer tmpbuf
!       (cvs-insert-strings (mapcar 'cvs-fileinfo->full-path fis))
!       (cvs-pop-to-buffer-same-frame (current-buffer))
!       (shrink-window-if-larger-than-buffer)))
      (if (not (or silent
                 (unwind-protect
                     (yes-or-no-p (format "Delete %d files? " (length files)))
--- 2002,2011 ----
         (tmpbuf (cvs-temp-buffer)))
      (when (and (not silent) (equal cvs-confirm-removals 'list))
        (with-current-buffer tmpbuf
!       (let ((inhibit-read-only t))
!         (cvs-insert-strings (mapcar 'cvs-fileinfo->full-path fis))
!         (cvs-pop-to-buffer-same-frame (current-buffer))
!         (shrink-window-if-larger-than-buffer))))
      (if (not (or silent
                 (unwind-protect
                     (yes-or-no-p (format "Delete %d files? " (length files)))