Re: elisp errors

[Barry Margolin <barmar@alum.mit.edu>]

In article 
<26488aad-8ff8-4dda-bda5-ce5036de3617@w39g2000prb.googlegroups.com>,
 synhedionn@gmail.com wrote:

> hi,
> I try to evaluate, for doing indentation of poub.y(so C-mode):
> (defun indentTabs()
>  (interactive)
>   (   save-excursion ; cf
> http://www.cs.tut.fi/lintula/manual/elisp/emacs-lisp-intro-1.05/emacs-lisp-int
> ro_13.html#SEC145
> restores point to its original position
>     (   message "coucou"   )
>     (goto-char (point-min))
> (let  ((cpt 100))    ;double parenthese obligee
>     (while (> cpt 0)
>       (
>     ((c-indent-command));   widget-forward			;TAB
>       ( move-beginning-of-line 0)
>      (  next-line 1)
> 
> 	(setq cpt   (1- cpt)) ;  (1- cpt))
> ; ( message "cpt=%d"( 3 )  );!! parentheses autour cpt
> 	   (   message "fin partielle"   )
> 	      )) )  ) )
> 
> I do C-x C-e at end of command
> Then , in my poub.y : M-x indentTabs
> But error: Invalid read syntax: expected lambda expression (((c-indent-
> command));   widget-forward			;TAB	)
> What does it mean(evaluate by own your correction suggestion, please)?

You have too many parentheses around the body of your while loop, and 
then another extra set around the call to c-indent-command.  It should 
be:

(while (> cpt 0)
  (c-indent-command)
  (move-beginning-of-line 0)
  (next-line 1)
  (setq cpt (1- cpt))
  (message "fin partielle"))

This can also be simplified as:

(dotimes (i 100)
  (c-indent-command)
  (move-beginning-of-line 0)
  (next-line 1)
  (message "fin partielle"))

Also, do you really want to write that message every time through the 
loop instead of at the very end?

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***
*** PLEASE don't copy me on replies, I'll read them in the group ***