aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/pcvs.el
diff options
context:
space:
mode:
authorMiles Bader2006-06-07 18:05:10 +0000
committerMiles Bader2006-06-07 18:05:10 +0000
commitb883cdb2fefa8ea9c3b0d82eba7a9ee792f871bb (patch)
treede3804210a8cd955e0d3b9abc15679480930bc82 /lisp/pcvs.el
parent885b7d0991bd4b4b8f4bd1d3cd21c18a697bbce2 (diff)
parent26c9afc3239e18b03537faaea33e3e82e28099e6 (diff)
downloademacs-b883cdb2fefa8ea9c3b0d82eba7a9ee792f871bb.tar.gz
emacs-b883cdb2fefa8ea9c3b0d82eba7a9ee792f871bb.zip
Merge from emacs--devo--0
Patches applied: * emacs--devo--0 (patch 285-296) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: admin/FOR-RELEASE: Update refcard section. * gnus--rel--5.10 (patch 102-104) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-64
Diffstat (limited to 'lisp/pcvs.el')
-rw-r--r--lisp/pcvs.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index b9d04522181..5e322b9276a 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."
467 (cvs-mode) 467 (cvs-mode)
468 (set (make-local-variable 'list-buffers-directory) buffer-name) 468 (set (make-local-variable 'list-buffers-directory) buffer-name)
469 ;;(set (make-local-variable 'cvs-temp-buffer) (cvs-temp-buffer)) 469 ;;(set (make-local-variable 'cvs-temp-buffer) (cvs-temp-buffer))
470 (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n" ""))) 470 (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n\n" "\n" t)))
471 (set (make-local-variable 'cvs-cookies) cookies) 471 (set (make-local-variable 'cvs-cookies) cookies)
472 (add-hook 'kill-buffer-hook 472 (add-hook 'kill-buffer-hook
473 (lambda () 473 (lambda ()
@@ -618,7 +618,7 @@ If non-nil, NEW means to create a new buffer no matter what."
618 (str (car hf)) 618 (str (car hf))
619 (done "") 619 (done "")
620 (tin (ewoc-nth cvs-cookies 0))) 620 (tin (ewoc-nth cvs-cookies 0)))
621 (if (eq (length str) 1) (setq str "")) 621 (if (eq (length str) 2) (setq str ""))
622 ;; look for the first *real* fileinfo (to determine emptyness) 622 ;; look for the first *real* fileinfo (to determine emptyness)
623 (while 623 (while
624 (and tin 624 (and tin
@@ -633,6 +633,7 @@ If non-nil, NEW means to create a new buffer no matter what."
633 (setq str (replace-match "" t t str)) 633 (setq str (replace-match "" t t str))
634 (if (zerop (length str)) (setq str "\n")) 634 (if (zerop (length str)) (setq str "\n"))
635 (setq done (concat "-- last cmd: " cmd " --")))) 635 (setq done (concat "-- last cmd: " cmd " --"))))
636 (setq str (concat str "\n") done (concat done "\n"))
636 ;; set the new header and footer 637 ;; set the new header and footer
637 (ewoc-set-hf cvs-cookies 638 (ewoc-set-hf cvs-cookies
638 str (concat "\n--------------------- " 639 str (concat "\n--------------------- "