paragraph fill and wrong number of arguments

paragraph fill and wrong number of arguments

[Yohann Pitrey]

Hi everyone,

I have been trying to write a function to fill a paragraph using :


        (defun justify ()
	 (interactive)
	 (mark-paragraph)
	 (fill-region-as-paragraph (region-beginning) (region-end))
	 )

but it doesn't work , and I get this error message :

"justify: Wrong number of arguments: #[nil "ÀÁ!ˆÂÃĉ#ˆÅÁ!‡" [forward-paragraph 1 
push-mark nil t backward-paragraph] 4 1287337 nil], 1"

does anyone have a clue?

thanks a lot!

Yohann.

Re: paragraph fill and wrong number of arguments

[Dieter Wilhelm]

Yohann Pitrey <ypitrey@gmail.com> writes:

> I have been trying to write a function to fill a paragraph using :
>
>
>        (defun justify ()
> 	 (interactive)
> 	 (mark-paragraph)
> 	 (fill-region-as-paragraph (region-beginning) (region-end))
> 	 )
>
> "justify: Wrong number of arguments: #[nil "ÀÁ!ˆÂÃĉ#ˆÅÁ!‡"
> [forward-paragraph 1 push-mark nil t backward-paragraph] 4 1287337
> nil], 1"

not so for me, have you re-evaluated your latest definition?

Bye the way, why don't you use M-q (fill-paragraph)?

-- 
    Best wishes

    H. Dieter Wilhelm
    Darmstadt, Germany

Re: paragraph fill and wrong number of arguments

[Yohann Pitrey]

For information, I finally made it :


	(defun justify ()
	  (interactive)
	  (save-excursion
	    (backward-paragraph -1)
	    (setq from (point))
	    (forward-paragraph -1)
	    (setq to (point))
	    (fill-region-as-paragraph from to)
	    )
	  )


thanks all for your help!

Yohann.

Dieter Wilhelm a écrit :
> Yohann Pitrey <ypitrey@gmail.com> writes:
> 
>> I have been trying to write a function to fill a paragraph using :
>>
>>
>>        (defun justify ()
>> 	 (interactive)
>> 	 (mark-paragraph)
>> 	 (fill-region-as-paragraph (region-beginning) (region-end))
>> 	 )
>>
>> "justify: Wrong number of arguments: #[nil "ÀÁ!ˆÂÃĉ#ˆÅÁ!‡"
>> [forward-paragraph 1 push-mark nil t backward-paragraph] 4 1287337
>> nil], 1"
> 
> not so for me, have you re-evaluated your latest definition?
> 
> Bye the way, why don't you use M-q (fill-paragraph)?
> 

Re: paragraph fill and wrong number of arguments

[Yohann Pitrey]

Thanks for your answer, it perfectly works too!
I didn't know the "progn" trick...

Now, I would like the function to indent the whole paragraph like the first 
line. I tried to write this (this is *exactly* what I wrote) :

(defun justifier () ;; i am french, so justify becomes justifier
	 (interactive)
	 (save-excursion
	   (let ((from (progn
			 (backward-paragraph -1)
			 (beginning-of-line-text)
			 (point)))
		 (column (current-column))
		 (to   (progn
			 (forward-paragraph -1)
			 (point))))
	     (indent-region from to column)
	     (fill-region-as-paragraph from to))))


it doesn't work with the first line's indent, though it aligns the paragraph 
with the second line indent :

* try and change the first line's indent, and execute the function, it shouldn't 
work as I wish.
* then try to change the second line's indent (no matter the first line's 
indent), and the paragraph should align like it.

does anyone have a clue?

thanks,

Yohann.