- ;; set a variety of local variables
- ((lambda (local-vars)
- (dolist (pair local-vars)
- (set (make-local-variable (car pair)) (cdr pair))))
- `((adaptive-fill-mode . nil)
- (fill-paragraph-function . lisp-fill-paragraph)
- (indent-line-function . lisp-indent-line)
- (lisp-indent-function . shen-indent-function)
- (parse-sexp-ignore-comments . t)
- (comment-start . "\\* ")
- (comment-end . " *\\")
- (comment-add . 0)
- (comment-column . 32)
- (parse-sexp-ignore-comments . t)
- (comment-use-global-state . nil)
- (comment-multi-line . t)
- (eldoc-documentation-function . shen-mode-eldoc)
- (imenu-case-fold-search . t)
- (imenu-generic-expression . ,shen-imenu-generic-expression)
- (mode-name . "Shen")
- (font-lock-defaults . (shen-font-lock-keywords)))))
+ ;; Set a variety of local variables.
+ (dolist (pair `((adaptive-fill-mode . nil)
+ (fill-paragraph-function . lisp-fill-paragraph)
+ (indent-line-function . lisp-indent-line)
+ (lisp-indent-function . shen-indent-function)
+ (parse-sexp-ignore-comments . t)
+ (comment-start . "\\* ")
+ (comment-end . " *\\")
+ (comment-add . 0)
+ (comment-column . 32)
+ (parse-sexp-ignore-comments . t)
+ (comment-use-global-state . nil)
+ (comment-multi-line . t)
+ (eldoc-documentation-function . shen-mode-eldoc)
+ (imenu-case-fold-search . t)
+ (imenu-generic-expression . ,shen-imenu-generic-expression)
+ (mode-name . "Shen")
+ (font-lock-defaults . (shen-font-lock-keywords))))
+ (set (make-local-variable (car pair)) (cdr pair))))