[xyzzy:02582] Re: バージョンアップのお知らせ

[Seiya Suda <seiya.suda@xxxxxxxxxxx>]

Tetsuya Kamei さん、こんにちは。

        Mon, 17 May 1999 18:34:36 +0900 の
        [xyzzy:02579] Re: バージョンアップのお知らせ
        に関するメールにお答えします。

(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))

こんなふうにしてみました。あと、プロのカラーコーディ
ネータがほしい。

--------
須田誠也(suda seiya)
seiya.suda@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/