Commit a8050bff authored by Gerd Moellmann's avatar Gerd Moellmann

(lisp-mode-variables): Change

outline-regexp, add outline-level.
(lisp-outline-level): New.
parent ddf8eff5
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.
......
......@@ -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.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment