整理自: 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)