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) |