グローバル変数の色を変えるとか

キーテスト用のマイナーモード - himadatenodeの日記
http://d.hatena.ne.jp/himadatanode/20080407/p1

これtypoで動かなかったのに気づいたので修正。それとグローバル変数の"*"付け忘れ立ったので、何となくそういうのを防ぐために、変数っぽくアスタリスクで挟んだのは色を変える事に。

(defun global-var-color ()
  (unless (local-variable-p 'regexp-keyword-list)
	(make-local-variable 'regexp-keyword-list))
  (setf regexp-keyword-list
		(append regexp-keyword-list *global-var-color-keyword-list*)))

(defvar *global-var-color-keyword-list*
  (compile-regexp-keyword-list
   '(("\\*[^\;\"\'\n \t　]*\\*" nil (:color 1) nil))))

(add-hook '*lisp-mode-hook* 'global-var-color)
(add-hook '*lisp-interaction-mode-hook* 'global-var-color)