Stefan Monnier <[EMAIL PROTECTED]> writes:
>> (defun lisp-outline-level ()
>> "Lisp mode `outline-level' function."
>> (if (looking-at "(\\|;;;###autoload")
>> 1000
>> (looking-at outline-regexp)
>> (- (match-end 0) (match-beginning 0))))
>
>> This is a bit strange as outline-regexp doesn't match
>> ";;;###autoload". Shall I commit the patch below?
>
> Why did you assume that the ;;;###autoload thingy got there by
> mistake?
Ah, I see you put it in.
> Wouldn't it be better to fix outline-regexp?
I figured that an ;;;###autoload line is not a heading. If you do
make it a heading, then a thus autoloaded function would become a
two-headed monster. But maybe I was too rigid in my thinking. I
suppose you want it added as a heading so that hiding the body of the
previous function doesn't hide the fact that the current function is
autoloaded? Should I change outline-regexp into
";;;;*\\( [^ \t\n]\\|###autoload\\)\\|("?
Lute.
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
