[Emacs-diffs] Changes to emacs/lisp/pcvs.el

[Thien-Thi Nguyen]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.63 emacs/lisp/pcvs.el:1.64
*** emacs/lisp/pcvs.el:1.63     Fri Sep 19 14:43:16 2003
--- emacs/lisp/pcvs.el  Mon Sep 29 10:40:28 2003
***************
*** 1256,1262 ****
    (let ((tin (ewoc-goto-prev cvs-cookies 1)))
      (when tin
        (setf (cvs-fileinfo->marked (ewoc-data tin)) nil)
!       (ewoc-invalidate cvs-cookies tin))))
  
  (defconst cvs-ignore-marks-alternatives
    '(("toggle-marks"   . "/TM")
--- 1256,1263 ----
    (let ((tin (ewoc-goto-prev cvs-cookies 1)))
      (when tin
        (setf (cvs-fileinfo->marked (ewoc-data tin)) nil)
!       (ewoc-invalidate cvs-cookies tin)))
!   (cvs-move-to-goal-column))
  
  (defconst cvs-ignore-marks-alternatives
    '(("toggle-marks"   . "/TM")
***************
*** 2043,2056 ****
          (shrink-window-if-larger-than-buffer))))
      (if (not (or silent
                 (unwind-protect
!                    (yes-or-no-p 
                      (let ((nfiles (length files))
                            (verb (if (eq filter 'undo) "Undo" "Delete")))
                        (if (= 1 nfiles)
!                           (format "%s file: \"%s\" ? " 
                                    verb
                                    (cvs-fileinfo->file (car files)))
!                         (format "%s %d files? " 
                                  verb
                                  nfiles))))
                   (cvs-bury-buffer tmpbuf cvs-buffer))))
--- 2044,2057 ----
          (shrink-window-if-larger-than-buffer))))
      (if (not (or silent
                 (unwind-protect
!                    (yes-or-no-p
                      (let ((nfiles (length files))
                            (verb (if (eq filter 'undo) "Undo" "Delete")))
                        (if (= 1 nfiles)
!                           (format "%s file: \"%s\" ? "
                                    verb
                                    (cvs-fileinfo->file (car files)))
!                         (format "%s %d files? "
                                  verb
                                  nfiles))))
                   (cvs-bury-buffer tmpbuf cvs-buffer))))