Re: lisp-outline-level.

2005-02-17 Thread Richard Stallman
Yes, this has the advantage that Outline minor mode doesn't consider an autoload cookie as part of the previous top-level sexp anymore. (Hiding the body of such a preceding top-level sexp would also hide the autoload cookie.) If you like the results, then this is a good change. Th

Re: lisp-outline-level.

2005-02-16 Thread Lute Kamstra
Richard Stallman <[EMAIL PROTECTED]> writes: > As Stefan Monnier suggested, I added ;;;###autoload to outline-regexp. > > Does this in fact give good results? Yes, this has the advantage that Outline minor mode doesn't consider an autoload cookie as part of the previous top-level sexp anymor

Re: lisp-outline-level.

2005-02-16 Thread Richard Stallman
As Stefan Monnier suggested, I added ;;;###autoload to outline-regexp. Does this in fact give good results? I can't anticipate whether they would be good or bad. ___ Emacs-devel mailing list [email protected] http://lists.gnu.org/mailman/listin

Re: lisp-outline-level.

2005-02-15 Thread Lute Kamstra
Richard Stallman <[EMAIL PROTECTED]> writes: > This is a bit strange as outline-regexp doesn't match > ";;;###autoload". Shall I commit the patch below? > > Does this change give improved behavior in any particular case? > If so, which case? > > What happens if you add ;;;###autoload to o

Re: lisp-outline-level.

2005-02-14 Thread Richard Stallman
This is a bit strange as outline-regexp doesn't match ";;;###autoload". Shall I commit the patch below? Does this change give improved behavior in any particular case? If so, which case? What happens if you add ;;;###autoload to outline-regexp? _

Re: lisp-outline-level.

2005-02-13 Thread Stefan Monnier
> (defun lisp-outline-level > (let ((len (- (match-end 0) (match-beginning 0 > (if (looking-at ...) >1000 > len))) Yes, that's probably preferable. Stefan ___ Emacs-devel mailing list [email protected] http://lists.g

Re: lisp-outline-level.

2005-02-13 Thread Lute Kamstra
David Kastrup <[EMAIL PROTECTED]> writes: [...] > or even (if preservation of match data is definitely not required) > > (defun lisp-outline-level > (let ((len (- (match-end 0) (match-beginning 0 > (if (looking-at ...) >1000 > len))) A quick look at lisp/outline.el gave m

Re: lisp-outline-level.

2005-02-13 Thread Lute Kamstra
David Kastrup <[EMAIL PROTECTED]> writes: >>> Lute Kamstra <[EMAIL PROTECTED]> writes: >>> In (Emacs) Lisp mode, outline-regexp is "* [^ \t\n]\\|(" and outline-level is lisp-outline-level: [...] > Ok, I did not realize that those functions were essentially hook > functions, sorry.

Re: lisp-outline-level.

2005-02-13 Thread David Kastrup
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-reg

Re: lisp-outline-level.

2005-02-13 Thread David Kastrup
Lute Kamstra <[EMAIL PROTECTED]> writes: > David Kastrup <[EMAIL PROTECTED]> writes: > >> Lute Kamstra <[EMAIL PROTECTED]> writes: >> >>> In (Emacs) Lisp mode, outline-regexp is "* [^ \t\n]\\|(" and >>> outline-level is lisp-outline-level: >>> >>> (defun lisp-outline-level () >>> "Lisp mode

Re: lisp-outline-level.

2005-02-13 Thread Lute Kamstra
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-reg

Re: lisp-outline-level.

2005-02-13 Thread Lute Kamstra
David Kastrup <[EMAIL PROTECTED]> writes: > Lute Kamstra <[EMAIL PROTECTED]> writes: > >> In (Emacs) Lisp mode, outline-regexp is "* [^ \t\n]\\|(" and >> outline-level is lisp-outline-level: >> >> (defun lisp-outline-level () >> "Lisp mode `outline-level' function." >> (if (looking-at "(\\

Re: lisp-outline-level.

2005-02-13 Thread Stefan Monnier
> (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 commi

Re: lisp-outline-level.

2005-02-13 Thread David Kastrup
Lute Kamstra <[EMAIL PROTECTED]> writes: > In (Emacs) Lisp mode, outline-regexp is "* [^ \t\n]\\|(" and > outline-level is lisp-outline-level: > > (defun lisp-outline-level () > "Lisp mode `outline-level' function." > (if (looking-at "(\\|;;;###autoload") > 1000 > (looking-at out