Function: lisp-outline-level

lisp-outline-level is a byte-compiled function defined in lisp-mode.el.gz.

Signature

(lisp-outline-level)

Documentation

Lisp mode outline-level(var)/outline-level(fun) function.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/lisp-mode.el.gz
(defun lisp-outline-level ()
  "Lisp mode `outline-level' function."
  ;; Expects outline-regexp is ";;;\\(;* [^ \t\n]\\|###autoload\\)\\|("
  ;; and point is at the beginning of a matching line.
  (let ((len (- (match-end 0) (match-beginning 0))))
    (cond ((looking-at "(\\|;;;###autoload")
           1000)
          ((looking-at ";;\\(;+\\) ")
           (- (match-end 1) (match-beginning 1)))
          ;; Above should match everything but just in case.
          (t
           len))))