1256 |
(let ((tin (ewoc-goto-prev cvs-cookies 1))) |
(let ((tin (ewoc-goto-prev cvs-cookies 1))) |
1257 |
(when tin |
(when tin |
1258 |
(setf (cvs-fileinfo->marked (ewoc-data tin)) nil) |
(setf (cvs-fileinfo->marked (ewoc-data tin)) nil) |
1259 |
(ewoc-invalidate cvs-cookies tin)))) |
(ewoc-invalidate cvs-cookies tin))) |
1260 |
|
(cvs-move-to-goal-column)) |
1261 |
|
|
1262 |
(defconst cvs-ignore-marks-alternatives |
(defconst cvs-ignore-marks-alternatives |
1263 |
'(("toggle-marks" . "/TM") |
'(("toggle-marks" . "/TM") |
2044 |
(shrink-window-if-larger-than-buffer)))) |
(shrink-window-if-larger-than-buffer)))) |
2045 |
(if (not (or silent |
(if (not (or silent |
2046 |
(unwind-protect |
(unwind-protect |
2047 |
(yes-or-no-p |
(yes-or-no-p |
2048 |
(let ((nfiles (length files)) |
(let ((nfiles (length files)) |
2049 |
(verb (if (eq filter 'undo) "Undo" "Delete"))) |
(verb (if (eq filter 'undo) "Undo" "Delete"))) |
2050 |
(if (= 1 nfiles) |
(if (= 1 nfiles) |
2051 |
(format "%s file: \"%s\" ? " |
(format "%s file: \"%s\" ? " |
2052 |
verb |
verb |
2053 |
(cvs-fileinfo->file (car files))) |
(cvs-fileinfo->file (car files))) |
2054 |
(format "%s %d files? " |
(format "%s %d files? " |
2055 |
verb |
verb |
2056 |
nfiles)))) |
nfiles)))) |
2057 |
(cvs-bury-buffer tmpbuf cvs-buffer)))) |
(cvs-bury-buffer tmpbuf cvs-buffer)))) |