diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-12-02 10:20:22 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-12-02 10:20:22 +0000 |
| commit | a8050bff074281701a3ac20d3e54f1d70d881b3b (patch) | |
| tree | cad7cd51ae816fc2e93d5c3d97c308d1363c0895 /lisp/emacs-lisp/lisp-mode.el | |
| parent | ddf8eff5f64589a9c6863b1b61b1b25146da0a1f (diff) | |
| download | emacs-a8050bff074281701a3ac20d3e54f1d70d881b3b.tar.gz emacs-a8050bff074281701a3ac20d3e54f1d70d881b3b.tar.bz2 emacs-a8050bff074281701a3ac20d3e54f1d70d881b3b.zip | |
(lisp-mode-variables): Change
outline-regexp, add outline-level.
(lisp-outline-level): New.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 2f09c352811..bfd94311f17 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -128,7 +128,9 @@ (make-local-variable 'parse-sexp-ignore-comments) (setq parse-sexp-ignore-comments t) (make-local-variable 'outline-regexp) - (setq outline-regexp ";;; \\|(....") + (setq outline-regexp ";;;;* \\|(") + (make-local-variable 'outline-level) + (setq outline-level 'lisp-outline-level) (make-local-variable 'comment-start) (setq comment-start ";") (make-local-variable 'comment-start-skip) @@ -141,6 +143,14 @@ (setq comment-indent-function 'lisp-comment-indent) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression lisp-imenu-generic-expression)) + +(defun lisp-outline-level () + "Lisp mode `outline-level' function." + (if (looking-at "(") + 1000 + (looking-at outline-regexp) + (- (match-end 0) (match-beginning 0)))) + (defvar shared-lisp-mode-map () "Keymap for commands shared by all sorts of Lisp modes.") |