(add-hook 'inferior-lisp-mode-hook
#'(lambda () (local-set-key "\C-m" 'comint-send-and-indent)) t))
+;;;--------------------------------------------------------------------------
+;;; MMM configuration.
+
+(setq mmm-global-mode 'maybe
+ mmm-submode-decoration-level 1)
+
+(mmm-add-classes '((cweb :submode c
+ :face mmm-code-submode-face
+ :front "^@[(<].*@>\s-*="
+ :back "^@[* ]")))
+
;;;--------------------------------------------------------------------------
;;; Other languages.