Emacs 80文字を超えた文字を強調する

どこから見つけてきたか忘れました(スミマセン)。

;; highlight charageter beyond 80 columns
(add-hook 'python-mode-hook
  (lambda ()
    (font-lock-add-keywords nil
      '(("^[^\n]\\{80\\}\\(.*\\)$" 1 font-lock-warning-face t)))))