157 |
(make-local-variable 'parse-sexp-ignore-comments) |
(make-local-variable 'parse-sexp-ignore-comments) |
158 |
(setq parse-sexp-ignore-comments t) |
(setq parse-sexp-ignore-comments t) |
159 |
(make-local-variable 'lisp-indent-function) |
(make-local-variable 'lisp-indent-function) |
160 |
(set lisp-indent-function 'scheme-indent-function) |
(setq lisp-indent-function 'scheme-indent-function) |
161 |
(setq mode-line-process '("" scheme-mode-line-process)) |
(setq mode-line-process '("" scheme-mode-line-process)) |
162 |
(set (make-local-variable 'imenu-case-fold-search) t) |
(set (make-local-variable 'imenu-case-fold-search) t) |
163 |
(setq imenu-generic-expression scheme-imenu-generic-expression) |
(setq imenu-generic-expression scheme-imenu-generic-expression) |