182 |
(make-local-variable 'parse-sexp-ignore-comments) |
(make-local-variable 'parse-sexp-ignore-comments) |
183 |
(setq parse-sexp-ignore-comments t) |
(setq parse-sexp-ignore-comments t) |
184 |
(make-local-variable 'outline-regexp) |
(make-local-variable 'outline-regexp) |
185 |
(setq outline-regexp ";;;;* [^ \t\n]\\|(") |
(setq outline-regexp ";;;\\(;* [^ \t\n]\\|###autoload\\)\\|(") |
186 |
(make-local-variable 'outline-level) |
(make-local-variable 'outline-level) |
187 |
(setq outline-level 'lisp-outline-level) |
(setq outline-level 'lisp-outline-level) |
188 |
(make-local-variable 'comment-start) |
(make-local-variable 'comment-start) |
212 |
|
|
213 |
(defun lisp-outline-level () |
(defun lisp-outline-level () |
214 |
"Lisp mode `outline-level' function." |
"Lisp mode `outline-level' function." |
215 |
(if (looking-at "(\\|;;;###autoload") |
(let ((len (- (match-end 0) (match-beginning 0)))) |
216 |
1000 |
(if (looking-at "(\\|;;;###autoload") |
217 |
(looking-at outline-regexp) |
1000 |
218 |
(- (match-end 0) (match-beginning 0)))) |
len))) |
|
|
|
219 |
|
|
220 |
(defvar lisp-mode-shared-map |
(defvar lisp-mode-shared-map |
221 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |