procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lisp-mode-variables): Change

Browse source 
outline-regexp, add outline-level.
(lisp-outline-level): New.
This commit is contained in:
Gerd Moellmann 1999-12-02 10:20:22 +00:00
parent ddf8eff5f6
commit a8050bff07
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/lisp-mode.el
View file

@ -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.")