diff options
| author | Miles Bader | 2006-06-07 18:05:10 +0000 |
|---|---|---|
| committer | Miles Bader | 2006-06-07 18:05:10 +0000 |
| commit | b883cdb2fefa8ea9c3b0d82eba7a9ee792f871bb (patch) | |
| tree | de3804210a8cd955e0d3b9abc15679480930bc82 /lisp/pcvs.el | |
| parent | 885b7d0991bd4b4b8f4bd1d3cd21c18a697bbce2 (diff) | |
| parent | 26c9afc3239e18b03537faaea33e3e82e28099e6 (diff) | |
| download | emacs-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.el | 5 |
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--------------------- " |