diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-09-13 19:09:45 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-09-13 19:09:45 +0000 |
| commit | 3f1045d53f473c7c96cc97e2473b1276b46f3b9e (patch) | |
| tree | 42af332f677df9d12fe998379b222e89a8a1aff6 /lisp/pcvs.el | |
| parent | d3627c478fb41199ccd53e927df613075a2b64c7 (diff) | |
| download | emacs-3f1045d53f473c7c96cc97e2473b1276b46f3b9e.tar.gz | |
(cvs-do-removal): Bind inhibit-read-only while modifying the buffer.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 3483adb1dde..27e340e0343 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -14,7 +14,7 @@ ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.39 2002/09/03 01:40:29 monnier Exp $ +;; Revision: $Id: pcvs.el,v 1.40 2002/09/13 18:25:26 monnier Exp $ ;; This file is part of GNU Emacs. @@ -2002,9 +2002,10 @@ Returns a list of FIS that should be `cvs remove'd." (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))) + (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))) |