(lisp-mode-variables): Change

outline-regexp, add outline-level.
(lisp-outline-level): New.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 041b558ccadd92a1dfe79853dcfd9eed07bf3815..8ec8be4dd615cd8caa51e2d112b9f7d8f39fcf2e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 1999-12-02  Gerd Moellmann  <gerd@gnu.org>
 
+       * emacs-lisp/lisp-mode.el (lisp-mode-variables): Change
+       outline-regexp, add outline-level.
+       (lisp-outline-level): New.
+
        * calendar/appt.el (appt-convert-time): Handle "12:MMam", 
        remove extraneous string-match.
 

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 2f09c3528116a4b2f9cdbbc8327406b8afcc2a97..bfd94311f174a7274d02c61947a7424804272fd2 100644 (file)
--- 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))))
+
 \f
 (defvar shared-lisp-mode-map ()
   "Keymap for commands shared by all sorts of Lisp modes.")