Emacsで1行の文字数が指定値をオーバーしていたらハイライトする

具体的なコード例を示します。

.emacs

;;; C系統,Pythonにて1行80文字を超えるとハイライト
(add-hook 'c-mode-hook
  (lambda ()
    (font-lock-add-keywords nil
      '(("^[^\n]\\{80\\}\\(.*\\)$" 1 font-lock-warning-face t)))))
(add-hook 'c++-mode-hook
  (lambda ()
    (font-lock-add-keywords nil
      '(("^[^\n]\\{80\\}\\(.*\\)$" 1 font-lock-warning-face t)))))
(add-hook 'python-mode-hook
  (lambda ()
    (font-lock-add-keywords nil
      '(("^[^\n]\\{80\\}\\(.*\\)$" 1 font-lock-warning-face t)))))

;;; Javaで1行100文字を超えるとハイライト
(add-hook 'java-mode-hook
  (lambda ()
    (font-lock-add-keywords nil
      '(("^[^\n]\\{100\\}\\(.*\\)$" 1 font-lock-warning-face t)))))

ちなみに、C++, Pythonで1行80文字、Javaで1行100文字までというのはGoogleで使われているスタイルガイドに即しています。

• http://code.google.com/p/google-styleguide/
• http://source.android.com/source/code-style.html