Emacs で文字関連のリテラルに色をつける

Emacs の scheme-mode では、 #\x のような文字リテラルに色がつかないのですが、以下の設定を追加すると色つきにできます。

(add-hook 'scheme-mode-hook
          (lambda ()
            (add-to-list 'scheme-font-lock-keywords-2 '("#\\\\\\(\\w+\\|.\\)" . font-lock-string-face)) ; 文字 #\x
            (add-to-list 'scheme-font-lock-keywords-2 '("#\\[.*?\\]" . font-lock-string-face)) ; 文字集合 #[...]
            (add-to-list 'scheme-font-lock-keywords-2 '("#/\\(.\\|\\\\/\\)*/" . font-lock-string-face)))) ; 正規表現 #/.../

ついでに文字集合と正規表現も色付きになります。