How to set outline-level in the first line?

[Heinz Tuechler <tuechler@gmx.at>]

Dear All,

To adapt outline-minor-mode to the comment form I use in R, I tried to
adjust the outline-regexp and the outline-level.

The outline-level should be:
(setq outline-level (defun outline-level ()
  "adjust outline-level to R-comments"	 
		      (interactive)
		      (cond ((looking-at "#\\{5\\} ") 1)
			    ((looking-at "#### ") 2)
			    ((looking-at "### ") 3)
			    ((looking-at "## ") 4)  
			    (t 1000))))

I tried to do this in the first line by something like 
outline-level: (defun outline-level () (interactive) (cond ((looking-at
"##### ") 1)((looking-at "#### ") 2)((looking-at "### ") 3)((looking-at "##
") 4)  (t 1000)))
but I did not find the right way.

Only if I use eval: (setq outline-level ... it does what I want.

So finally my first line looks as follows:
-*- mode: text; mode:outline-minor; outline-regexp:"#\\{2,5\\} "; eval:
(setq outline-level (defun outline-level () (interactive) (cond
((looking-at "##### ") 1)((looking-at "#### ") 2)((looking-at "### ")
3)((looking-at "## ") 4)  (t 1000)))) -*-

What I would like to know is, how to set the outline-level without "eval:"?

version information:
GNU Emacs 21.3.1 (i386-mingw-nt5.1.2600) of 2004-03-10 on NYAUMO

Thanks,
Heinz