lisp-outline-level.

[Lute Kamstra]

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)
    (- (match-end 0) (match-beginning 0))))

This is a bit strange as outline-regexp doesn't match
";;;###autoload".  Shall I commit the patch below?

Lute.


*** lisp/emacs-lisp/lisp-mode.el        1 Feb 2005 15:48:50 -0000       1.171
--- lisp/emacs-lisp/lisp-mode.el        13 Feb 2005 11:03:02 -0000
***************
*** 212,223 ****
  
  (defun lisp-outline-level ()
    "Lisp mode `outline-level' function."
!   (if (looking-at "(\\|;;;###autoload")
        1000
-     (looking-at outline-regexp)
      (- (match-end 0) (match-beginning 0))))
  
- 
  (defvar lisp-mode-shared-map
    (let ((map (make-sparse-keymap)))
      (define-key map "\t" 'lisp-indent-line)
--- 212,221 ----
  
  (defun lisp-outline-level ()
    "Lisp mode `outline-level' function."
!   (if (eq (following-char) ?\()
        1000
      (- (match-end 0) (match-beginning 0))))
  
  (defvar lisp-mode-shared-map
    (let ((map (make-sparse-keymap)))
      (define-key map "\t" 'lisp-indent-line)