* pcvs.el: Add a minimal leading commentary.

(cvs-make-cvs-buffer): Change the header part by removing the startup
message and adding a `Module' entry.  Also replace the FOOTER and
HEADER special fileinfos with the new support in ewoc for updating
its own footer and header.
(cvs-update-header): Update to use the header/footer of the ewoc.
(cvs-mode): Use define-derived-mode and set truncate-lines to t.
(cvs-is-within-p): New function.
(cvs-mode-run): Take advantage of `save-some-buffers's new ability
to only examine some subset of the buffers.
* pcvs-info.el (cvs-fileinfo-pp): Use the new property-preserving
`format' instead of our own ad-hoc functions.
Remove HEADER and FOOTER cases, now handled in the EWOC.
(cvs-fileinfo<): Remove HEADER and FOOTER cases.
* pcvs-parse.el (cvs-parse-run-table): Change message for unknown
output to avoid scaring the user.
(cvs-parse-table): Catch message for non-up-to-date commits.
* pcvs-defs.el (cvs-startup-message): Remove.
(cvs-global-menu): New autoloaded menu.
* pcvs-util.el (cvs-string-fill): Remove.
* emacs-lisp/ewoc.el (ewoc--create-special-node): Remove.
(ewoc--refresh-node): Don't take the whole EWOC but only the relevant
PP part of it and also make it work for footers and headers.
(ewoc-create): Drop POS and BUFFER arguments.
Use the DLL's dummy node to store the end-of-footer position.
(ewoc-map, ewoc-invalidate): Update call to ewoc--refresh-node.
(ewoc-refresh): Remove unused `header' variable.
(ewoc-(get|set)-hf): New functions.

1 files changed, 6 insertions, 31 deletions

diff --git a/lisp/pcvs-info.el b/lisp/pcvs-info.el
index 51b791e8ae3..0adb7b680ea 100644
--- a/lisp/pcvs-info.el
+++ b/lisp/pcvs-info.el
@@ -5,7 +5,7 @@
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs
 ;; Version: $Name:  $
-;; Revision: $Id: pcl-cvs-info.el,v 1.28 2000/03/05 21:32:21 monnier Exp $
+;; Revision: $Id: pcvs-info.el,v 1.1 2000/03/11 03:42:29 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -212,8 +212,6 @@ to confuse some users sometimes."
   ;;					  to display a text that should be in
   ;;					  full-log."
   ;;   TEMP	A temporary message that should be removed
-  ;;   HEADER	A message that should stick at the top of the display
-  ;;   FOOTER	A message that should stick at the bottom of the display
   )
 (defun cvs-create-fileinfo (type dir file msg &rest keys)
   (cvs-check-fileinfo (apply #'-cvs-create-fileinfo type dir file msg keys)))
@@ -362,10 +360,8 @@ For use by the cookie package."
 					'cvs-header-face cvs-dirname-map)
 			  ":"))
        (MESSAGE
-	(if (memq (cvs-fileinfo->subtype fileinfo) '(FOOTER HEADER))
-	    (cvs-fileinfo->full-log fileinfo)
-	  (cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo))
-			'cvs-msg-face)))
+	(cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo))
+		      'cvs-msg-face))
        (t
 	(let* ((status (if (cvs-fileinfo->marked fileinfo)
 			   (cvs-add-face "*" 'cvs-marked-face)
@@ -390,24 +386,9 @@ For use by the cookie package."
 		      ;; or the head-rev
 		      (when (and head (not (string= head base))) head)
 		      ;; or nothing
-		      ""))
-	       ;; (action (cvs-add-face (case (cvs-default-action fileinfo)
-	       ;; 			  (commit "com")
-	       ;; 			  (update "upd")
-	       ;; 			  (undo   "udo")
-	       ;; 			  (t      "   "))
-	       ;; 			'cvs-action-face
-	       ;; 			cvs-action-map))
-	       )
-	  (concat (cvs-string-fill side 11) " "
-		  status " "
-		  (cvs-string-fill type 11) " "
-		  ;; action " "
-		  (cvs-string-fill base 11) " "
-		  file)))))))
-;;        it seems that `format' removes text-properties.  Too bad!
-;; 	  (format "%-11s %s %-11s %-11s %s"
-;; 	  	  side status type base file)))))))
+		      "")))
+	  (format "%-11s %s %-11s %-11s %s"
+	  	  side status type base file)))))))
 
 
 (defun cvs-fileinfo-update (fi fi-new)
@@ -433,12 +414,6 @@ fileinfo will appear first, followed by all files (alphabetically)."
   (let ((subtypea (cvs-fileinfo->subtype a))
 	(subtypeb (cvs-fileinfo->subtype b)))
     (cond
-     ;; keep header and footer where they belong. Note: the order is important
-     ((eq subtypeb 'HEADER) nil)
-     ((eq subtypea 'HEADER) t)
-     ((eq subtypea 'FOOTER) nil)
-     ((eq subtypeb 'FOOTER) t)
-
      ;; Sort according to directories.
      ((string< (cvs-fileinfo->dir a) (cvs-fileinfo->dir b)) t)
      ((not (string= (cvs-fileinfo->dir a) (cvs-fileinfo->dir b))) nil)