Mercurial > emacs
comparison lisp/progmodes/scheme.el @ 65566:c31bc37303c0
(scheme-mode-variables): Use setq to assign buffer-local value
to lisp-indent-function.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 17 Sep 2005 11:07:16 +0000 |
| parents | 629afbe74e61 |
| children | 125c8f7cc7d2 fa0da9b57058 |
comparison
equal
deleted
inserted
replaced
| 65565:0133f0639bbc | 65566:c31bc37303c0 |
|---|---|
| 155 (make-local-variable 'comment-indent-function) | 155 (make-local-variable 'comment-indent-function) |
| 156 (setq comment-indent-function 'lisp-comment-indent) | 156 (setq comment-indent-function 'lisp-comment-indent) |
| 157 (make-local-variable 'parse-sexp-ignore-comments) | 157 (make-local-variable 'parse-sexp-ignore-comments) |
| 158 (setq parse-sexp-ignore-comments t) | 158 (setq parse-sexp-ignore-comments t) |
| 159 (make-local-variable 'lisp-indent-function) | 159 (make-local-variable 'lisp-indent-function) |
| 160 (set lisp-indent-function 'scheme-indent-function) | 160 (setq lisp-indent-function 'scheme-indent-function) |
| 161 (setq mode-line-process '("" scheme-mode-line-process)) | 161 (setq mode-line-process '("" scheme-mode-line-process)) |
| 162 (set (make-local-variable 'imenu-case-fold-search) t) | 162 (set (make-local-variable 'imenu-case-fold-search) t) |
| 163 (setq imenu-generic-expression scheme-imenu-generic-expression) | 163 (setq imenu-generic-expression scheme-imenu-generic-expression) |
| 164 (set (make-local-variable 'imenu-syntax-alist) | 164 (set (make-local-variable 'imenu-syntax-alist) |
| 165 '(("+-*/.<>=?!$%_&~^:" . "w"))) | 165 '(("+-*/.<>=?!$%_&~^:" . "w"))) |