paren

[Katsumi Yamaoka]

すみません、emacs-mime にそぐわないネタ振りをしてしまったことをお詫び
するとともに、Elips への移動を提案いたします。(^^;;;)

;; 時すでに遅し...。(^^;;;;)

>>>>> In [emacs-mime-ja : No.00274] 
>>>>>	Katsumi Yamaoka <yamaoka ＠ jpl.org> wrote:

山岡> XEmacs で show-paren-mode に相当するのは

山岡> (setq paren-mode 'paren)
山岡> (paren-set-mode 1)

山岡> でした。

(paren-set-mode 'paren)

で良かったようです。で、

(paren-set-mode '(sexp blink-paren))

のようなことがしたかったのでコードを書いてみました。

(defvar paren-extent-2 nil)
(paren-set-mode 'blink-paren)
(add-hook 'post-command-hook
	  (lambda ()
	    (let ((paren-mode 'sexp))
	      (paren-highlight))
	    (setq paren-extent-2 paren-extent)))
(add-hook 'pre-command-hook
	  (lambda ()
	    (if paren-extent-2
		(delete-extent paren-extent-2))))
(set-face-background 'paren-match "MistyRose")

;; これ以下は obsolete な機能を使っていますが、まだ使えます。
(load "blink-paren")
(copy-face 'paren-match 'blink-paren-on)
(set-face-foreground 'blink-paren-on "OrangeRed")
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>
;; 次は FSF Emacsen 用..