close-parentheses (Re: mime-w3 and raw-buffer)

[Katsumi Yamaoka]

>>>>> In [emacs-mime-ja : No.00269] 
>>>>>	IWAMURO Motonori <iwa ＠ mmp.fujitsu.co.jp> wrote:

岩室さん> 私は (find-matching-paren) を使うため「だけ」にvi.elをloadし
岩室さん> てます……(^^;;;
岩室さん> # カッコの前後に変な文字があるとうまくマッチしないこともあり
岩室さん> ますが……。

それはおそらくこういうものなんじゃないでしょうか? :-)

(defun match-paren (arg)
  "Go to the matching parenthesis if on parenthesis otherwise insert %."
  (interactive "p")
  (cond ((looking-at "\\s\(")
	 (forward-list 1)
	 (and match-paren-dingaling-mode (backward-char 1))
	 )
	((and match-paren-dingaling-mode (looking-at "\\s\)"))
	 (forward-char 1)
	 (backward-list 1))
	((and (not match-paren-dingaling-mode)
	      (save-excursion (backward-char 1) (looking-at "\\s\)")))
	 (backward-list 1))
	(t
	 (self-insert-command (or arg 1))
	 )))

(define-key global-map "%" 'match-paren)

;; カッコの前後に "%" そのものを挿入するときは `C-q %' としないと、
;; カーソルがあらぬ場所にすっ飛んでしまいます。(^^;;)
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>