;;; Parenmatch macros from tinyfugue mailing list.
;;; Not currently in use because of the fact that it lets you keep typing
;;; in the middle of the flashback.

/bind ) = /@test input(")") %; /set kstart=$[kbpoint()]%;\
	/@test kbgoto(kbpoint() - 1) %;\
	/set match=$[kbmatch()]%;\
	/IF (match >= 0 ) /@test kbgoto(match) %;\
		/repeat -01 1 /@test kbgoto(kstart)%;\
		/ELSE /@test kbgoto(kstart)%;\
	/ENDIF
/bind ] = /@test input("]") %; /set kstart=$[kbpoint()]%;\
	/@test kbgoto(kbpoint() - 1) %;\
	/set match=$[kbmatch()]%;\
	/IF (match >= 0 ) /@test kbgoto(match) %;\
		/repeat -01 1 /@test kbgoto(kstart)%;\
		/ELSE /@test kbgoto(kstart)%;\
	/ENDIF
/bind } = /@test input("}") %; /set kstart=$[kbpoint()]%;\
	/@test kbgoto(kbpoint() - 1) %;\
	/set match=$[kbmatch()]%;\
	/IF (match >= 0 ) /@test kbgoto(match) %;\
		/repeat -01 1 /@test kbgoto(kstart)%;\
		/ELSE /@test kbgoto(kstart)%;\
	/ENDIF