/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.59 by monnier, Fri May 23 19:31:02 2003 UTC revision 1.60 by jet, Sat Aug 23 02:40:47 2003 UTC
# Line 2043  Returns a list of FIS that should be `cv Line 2043  Returns a list of FIS that should be `cv
2043            (shrink-window-if-larger-than-buffer))))            (shrink-window-if-larger-than-buffer))))
2044      (if (not (or silent      (if (not (or silent
2045                   (unwind-protect                   (unwind-protect
2046                       (yes-or-no-p (format "Delete %d files? " (length files)))                       (if (eq 1 (length files))
2047                             (yes-or-no-p (format "Delete file: \"%s\" ? "
2048                                                  (cvs-fileinfo->file (car files))))
2049                           (yes-or-no-p (format "Delete %d files? " (length files))))
2050                     (cvs-bury-buffer tmpbuf cvs-buffer))))                     (cvs-bury-buffer tmpbuf cvs-buffer))))
2051          (progn (message "Aborting") nil)          (progn (message "Aborting") nil)
2052        (dolist (fi files)        (dolist (fi files)

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26