From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Thu, 18 May 2006 12:07:10 +0000 (+0000)
Subject: (cvs-make-cvs-buffer): Specify
X-Git-Tag: emacs-pretest-22.0.90~2518
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c93a67c54c52f8bf21fa837b6dc84ac132992578;p=emacs.git

(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 --git a/lisp/pcvs.el b/lisp/pcvs.el
index b9d04522181..7209c135e52 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -467,7 +467,7 @@ If non-nil, NEW means to create a new buffer no matter what."
 	 (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 @@ If non-nil, NEW means to create a new buffer no matter what."
 	 (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 @@ If non-nil, NEW means to create a new buffer no matter what."
 	(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--------------------- "