Mercurial > emacs
comparison lisp/pcvs.el @ 71007:4f58e5dcbbc0
(cvs-make-cvs-buffer): Specify NOSEP to `ewoc-create'.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Sat, 27 May 2006 17:41:18 +0000 |
parents | e5bae689766e |
children | 1405144e8610 a8190f7e546e |
comparison
equal
deleted
inserted
replaced
71006:103ed71d4639 | 71007:4f58e5dcbbc0 |
---|---|
465 "\n") | 465 "\n") |
466 (setq buffer-read-only t) | 466 (setq buffer-read-only t) |
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\n" "\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 () |
474 (ignore-errors (kill-buffer cvs-temp-buffer))) | 474 (ignore-errors (kill-buffer cvs-temp-buffer))) |
475 nil t) | 475 nil t) |