# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1147954030 0
# Node ID e5bae689766efe8b08b2bf10cdd9ab5b6606fa6a
# Parent  346a9c09f3707636c3743f025909faa7da511d83
(cvs-make-cvs-buffer): Specify
extra newline for ewoc's header and footer.
(cvs-update-header): Update initial header recognition.
Append newline to final header and footer values.

diff -r 346a9c09f370 -r e5bae689766e lisp/pcvs.el
--- a/lisp/pcvs.el	Thu May 18 12:04:40 2006 +0000
+++ b/lisp/pcvs.el	Thu May 18 12:07:10 2006 +0000
@@ -467,7 +467,7 @@
 	 (cvs-mode)
 	 (set (make-local-variable 'list-buffers-directory) buffer-name)
 	 ;;(set (make-local-variable 'cvs-temp-buffer) (cvs-temp-buffer))
-	 (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n" "")))
+	 (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n\n" "\n")))
 	   (set (make-local-variable 'cvs-cookies) cookies)
 	   (add-hook 'kill-buffer-hook
 		     (lambda ()
@@ -618,7 +618,7 @@
 	 (str (car hf))
 	 (done "")
 	 (tin (ewoc-nth cvs-cookies 0)))
-    (if (eq (length str) 1) (setq str ""))
+    (if (eq (length str) 2) (setq str ""))
     ;; look for the first *real* fileinfo (to determine emptyness)
     (while
 	(and tin
@@ -633,6 +633,7 @@
 	(setq str (replace-match "" t t str))
 	(if (zerop (length str)) (setq str "\n"))
 	(setq done (concat "-- last cmd: " cmd " --"))))
+    (setq str (concat str "\n") done (concat done "\n"))
     ;; set the new header and footer
     (ewoc-set-hf cvs-cookies
 		 str (concat "\n--------------------- "