* pcvs.el (cvs-make-cvs-buffer, cvs-run-process):

Don't need make-local-hook any more.
(cvs-addto-collection): Return the new tin.
(cvs-mode-insert): Jump to the new line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb1901c6cb8f8e6921ea9ea018096e29da75b746..31f9855b5624d289f2db53d353da41bd49dc0c07 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2000-10-15  Stefan Monnier  <monnier@cs.yale.edu>
 
+       * emacs-lisp/ewoc.el (ewoc-location): New function.
+       (ewoc-enter-after, ewoc-enter-before): Document return value.
+       * pcvs.el (cvs-make-cvs-buffer, cvs-run-process):
+       Don't need make-local-hook any more.
+       (cvs-addto-collection): Return the new tin.
+       (cvs-mode-insert): Jump to the new line.
+
        * jit-lock.el (jit-lock-fontify-buffer): Remove.
 
        * arc-mode.el (archive-zoo-summarize): Fix from gnu.emacs.bug.

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 1c776a5b1549ce88608f889e2335f689e76ada3d..ea83b883266fcad8cdc8caeb7048e6b86976bd05 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -14,7 +14,7 @@
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; Keywords: CVS, version control, release management
 ;; Version: $Name:  $
-;; Revision: $Id: pcvs.el,v 1.11 2000/10/05 22:45:59 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.12 2000/10/08 19:11:34 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -440,7 +440,6 @@ Working dir: " (abbreviate-file-name dir) "
         ;;(set (make-local-variable 'cvs-temp-buffer) (cvs-temp-buffer))
         (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n" "")))
           (set (make-local-variable 'cvs-cookies) cookies)
-          (make-local-hook 'kill-buffer-hook)
           (add-hook 'kill-buffer-hook
                     (lambda ()
                       (ignore-errors (kill-buffer cvs-temp-buffer)))
@@ -506,7 +505,6 @@ Working dir: " (abbreviate-file-name dir) "
                 postprocess
               ;; else, we have to register ourselves to be rerun on the rest
               `(cvs-run-process ',args ',rest ',postprocess ',single-dir)))
-       (make-local-hook 'kill-buffer-hook)
        (add-hook 'kill-buffer-hook
                  (lambda ()
                    (let ((proc (get-buffer-process (current-buffer))))
@@ -708,14 +706,14 @@ before calling the real function `" (symbol-name fun-1) "'.\n")
 ;;;
 
 (defun cvs-addto-collection (c fi &optional tin)
-  "Add FI to C and return a tin.
+  "Add FI to C and return FI's corresponding tin.
 FI is inserted in its proper place or maybe even merged with a preexisting
   fileinfo if applicable.
 TIN specifies an optional starting point."
   (unless tin (setq tin (ewoc-nth c 0)))
   (while (and tin (cvs-fileinfo< fi (ewoc-data tin)))
     (setq tin (ewoc-prev c tin)))
-  (if (null tin) (progn (ewoc-enter-first c fi) nil) ;empty collection
+  (if (null tin) (ewoc-enter-first c fi) ;empty collection
     (assert (not (cvs-fileinfo< fi (ewoc-data tin))))
     (let ((next-tin (ewoc-next c tin)))
       (while (not (or (null next-tin)
@@ -726,8 +724,8 @@ TIN specifies an optional starting point."
          (ewoc-enter-after c tin fi)
        ;; fi == tin
        (cvs-fileinfo-update (ewoc-data tin) fi)
-       (ewoc-invalidate c tin))
-      tin)))
+       (ewoc-invalidate c tin)
+       tin))))
 
 (defcustom cvs-cleanup-functions nil
   "Functions to tweak the cleanup process.
@@ -1339,7 +1337,9 @@ The POSTPROC specified there (typically `cvs-edit') is then called,
                           (error nil)))))
   (let ((file (file-relative-name (directory-file-name file))) last)
     (dolist (fi (cvs-fileinfo-from-entries file))
-      (setq last (cvs-addto-collection cvs-cookies fi last)))))
+      (setq last (cvs-addto-collection cvs-cookies fi last)))
+    ;; There should have been at least one entry.
+    (goto-char (ewoc-location last))))
 
 (defun-cvs-mode (cvs-mode-add . SIMPLE) (flags)
   "Add marked files to the cvs repository.