Emacs里高亮代码超出80列的部分

From: http://blog.jianingy.com/content/emacs%E9%87%8C%E9%AB%98%E4%BA%AE%E4%BB%A3%E7%A0%81%E8%B6%85%E5%87%BA80%E5%88%97%E7%9A%84%E9%83%A8%E5%88%86

整理自: EmacsWiki EightyColumnRule

;; 高亮结尾白空格
;; 设置颜色
(custom-set-faces
 '(my-tab-face            ((((class color)) (:background "grey10"))) t)
 '(my-trailing-space-face ((((class color)) (:background "gray10"))) t)
 '(my-long-line-face ((((class color)) (:background "gray10"))) t))

;; 辅助函数，用来给指定模式添加超过80列的高亮功能
(defun cc-mode-add-keywords (mode)
  (font-lock-add-keywords 
   mode
   '(("/t+" (0 'my-tab-face append))
     ("^.//{81//}//(.+//)$" (1 'my-long-line-face append)))))

;; 对指定模式使用"超过80列高亮"功能
(cc-mode-add-keywords 'c-mode)
(cc-mode-add-keywords 'cc-mode)
(cc-mode-add-keywords 'c++-mode)
(cc-mode-add-keywords 'perl-mode)
(cc-mode-add-keywords 'python-mode)