[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
pcvs & ewoc again
From: |
Sam Steingold |
Subject: |
pcvs & ewoc again |
Date: |
Tue, 30 May 2006 10:57:47 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
GNU Emacs 22.0.50.3 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2006-05-30 on quant8
Debugger entered--Lisp error: (wrong-number-of-arguments (lambda
(pretty-printer &optional header footer) "Create an empty ewoc.
The ewoc will be inserted in the current buffer at the current position.
PRETTY-PRINTER should be a function that takes one argument, an
element, and inserts a string representing it in the buffer (at
point). The string PRETTY-PRINTER inserts may be empty or span
several linse. A trailing newline will always be inserted
automatically. The PRETTY-PRINTER should use insert, and not
insert-before-markers.
Optional third argument HEADER is a string that will always be
present at the top of the ewoc. HEADER should end with a
newline. Optionaly fourth argument FOOTER is similar, and will
be inserted at the bottom of the ewoc." (let ((new-ewoc (ewoc--create
(current-buffer) pretty-printer nil nil (ewoc--dll-create))) (pos (point)))
(ewoc--set-buffer-bind-dll new-ewoc (unless header (setq header "")) (unless
footer (setq footer "")) (setf (ewoc--node-start-marker dll) (copy-marker pos))
(let ((foot (ewoc--create-node footer (lambda (x) (insert footer)) pos)) (head
(ewoc--create-node header (lambda (x) (insert header)) pos)))
(ewoc--node-enter-first dll head) (ewoc--node-enter-last dll foot) (setf
(ewoc--header new-ewoc) head) (setf (ewoc--footer new-ewoc) foot))) new-ewoc))
4)
ewoc-create(cvs-fileinfo-pp "\n\n" "\n" t)
cvs-make-cvs-buffer("~/src/clisp/current/" nil)
cvs-cmd-do("update" "/home/sds/src/clisp/current/" ("-dP") nil nil :cvsargs
("-n") :noshow nil :dont-change-disc t)
cvs-examine("/home/sds/src/clisp/current/" t)
#[nil "ÁÂ\"" [default-directory cvs-examine t] 3]()
#[nil "rÁ!
Â! )" [-cvs-mode!-fun commandp call-interactively] 2]()
cvs-mode!(#[nil "ÁÂ\"" [default-directory cvs-examine t] 3])
cvs-mode-revert-buffer()
call-interactively(cvs-mode-revert-buffer)
--
Sam Steingold (http://www.podval.org/~sds) on Fedora Core release 5 (Bordeaux)
http://openvotingconsortium.org http://honestreporting.com http://memri.org
http://dhimmi.com http://camera.org http://mideasttruth.com
Just because you're paranoid doesn't mean they AREN'T after you.
- pcvs & ewoc again,
Sam Steingold <=