[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 (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

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)) 
  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])

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.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]