/[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.63 by jet, Fri Sep 19 18:43:16 2003 UTC revision 1.64 by ttn, Mon Sep 29 14:40:28 2003 UTC
# Line 1256  they should always be unmarked." Line 1256  they should always be unmarked."
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")
# Line 2043  Returns a list of FIS that should be `cv Line 2044  Returns a list of FIS that should be `cv
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))))

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

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