diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2006-05-18 12:07:10 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2006-05-18 12:07:10 +0000 |
| commit | c93a67c54c52f8bf21fa837b6dc84ac132992578 (patch) | |
| tree | 14565432e732be49415891af893bcde499565cf3 /lisp/pcvs.el | |
| parent | 60eae434e8f376b4ac6a8c3553711c4eb73db930 (diff) | |
| download | emacs-c93a67c54c52f8bf21fa837b6dc84ac132992578.tar.gz | |
(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.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 5 |
1 files changed, 3 insertions, 2 deletions
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--------------------- " |