xyzzyのキーワード設定

◇とか■がついたとき、文字の色を変える設定

;;;***************************************************************************
;テキストモード時の色設定
(add-hook '*text-mode-hook*
		  (function (lambda () (setq abbrev-mode t)
					  (setq highlight-keyword t)
					  (text-parenthses-colorize))))

(defvar *text-paretheses-colorize* nil)
(setq *text-paretheses-colorize* (make-hash-table))
(setf (gethash #\「 *text-paretheses-colorize*) #\」)
(setf (gethash #\『 *text-paretheses-colorize*) #\』)
(setf (gethash #\〈 *text-paretheses-colorize*) #\〉)
(setf (gethash #\【 *text-paretheses-colorize*) #\】)
(setf (gethash #\≪ *text-paretheses-colorize*) #\≫)
(setf (gethash #\〔 *text-paretheses-colorize*) #\〕)
(setf (gethash #\［ *text-paretheses-colorize*) #\］)
(setf (gethash #\｛ *text-paretheses-colorize*) #\｝)
(setf (gethash #\《 *text-paretheses-colorize*) #\》)
(setf (gethash #\＜ *text-paretheses-colorize*) #\＞)

(defun text-parenthses-colorize ()
  (interactive)
  (setq parentheses-hash-table *text-paretheses-colorize*)
  (setq highlight-keyword t))

;;テキストの色を変更する
(defvar *text-mode-formats*
  (compile-regexp-keyword-list
   '(
	 ("^[□■◇◆○●\.\-].*" t (:color 10 0 :bold :underline))
	 ("^[@].*" t 6)
	 ("^[\*].*" t 3)  ;以下のように書けばとりあえず設定は可能。
	 )
   )
  ) ;

;
(setq regexp-keyword-list *text-mode-formats*)   
(add-hook 'text-mode-hook 'my-color-text-mode)

(defun my-color-text-mode ()
  (make-local-variable 'regexp-keyword-list)       
  (setq regexp-keyword-list *text-mode-formats*)   
  )

参考：
http://www.geocities.co.jp/Technopolis-Mars/8229/xyzzy/xyzzy-color.html