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
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
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
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listin
What happens if you add ;;;###autoload to outline-regexp?
As Stefan Monnier suggested, I added ;;;###autoload to outline-regexp.
I also improved the efficiency of lisp-outline-level as suggested by
David Kastrup.
Lute.
___
Emacs-devel mailing lis
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?
_
> (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
Emac
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 l
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 re
Stefan Monnier <[EMAIL PROTECTED]> writes:
>> (defun lisp-outline-level ()
>> "Lisp mode `outline-level' function."
>> (if (looking-at "(\\|;;;###autoload")
>> 1000
>> (looking-at outline-regexp)
>> (- (match-
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-outl
Stefan Monnier <[EMAIL PROTECTED]> writes:
>> (defun lisp-outline-level ()
>> "Lisp mode `outline-level' function."
>> (if (looking-at "(\\|;;;###autoload")
>> 1000
>> (looking-at outline-regexp)
>> (- (match-
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 ()
>>
> (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
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 &qu
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 outline-regexp)
15 matches
Mail list logo
