Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!ykgw!sun3261!sjc!leia!oda
From: oda@pa.Yokogawa.CO.JP (Shinji Oda)
Subject: Re: search matching-patern
Sender: news@leia.pa.yokogawa.co.jp (placeholder for future)
Message-ID: <ODA.94Nov4124942@greta.pa.Yokogawa.CO.JP>
In-Reply-To: furihata@hangi.tjsys.co.jp's message of Tue, 1 Nov 1994
 15:58:36 JST
Date: Fri, 4 Nov 1994 03:49:42 GMT
Distribution: fj
References: <FURIHATA.94Nov1155836@mmas4.hangi.tjsys.co.jp>
Content-Type: text/plain; charset=ISO-2022-JP
Mime-Version: 1.0
Organization: Yokogawa Electric Corporation, Tokyo, Japan.
Lines: 28
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5100
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5100&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

  $B>.ED!w2#2OEE5!$H?=$7$^$9!%(B

  $B9_4z(B>  $B4{$KF~NO$5$l$F$$$k%+%C%3!J3+JD$I$A$i$G$b!K$,(B $B$I$l(B $B$KBP1~$9$k(B
  $B9_4z(B> $B$+$r4JC1$K8+$D$1$k%3%^%s%I$O$J$$$G$7$g$&$+!#(B

$B=P$I$3$m$rK:$l$?$N$G$9$,(B(fj.editor.emacs $B$@$C$?$+$b$7$l$^$;$s(B)$B!$;d$O<!(B
$B$N$h$&$J4X?t$r(B .emacs $B$GDj5A$7$F;H$C$F$$$^$9!%(B

(defun match-paren (arg)
  "Go to the matching parenthesis if on parenthesis otherwise insert %."
  (interactive "p")
  (cond ((looking-at "[([{]") (forward-sexp 1) (backward-char))
((looking-at "[])}]") (forward-char) (backward-sexp 1))
(t (self-insert-command (or arg 1)))))

$B$A$J$_$K!$(B

(global-set-key "%" 'match-paren)

$B$7$F$$$^$9$N$G!$(B

  $B9_4z(B>  vi $B$G$O!"(B`%'$B$N%-!<$r2!$9$H$G$-$k$s$G$9$,!&!&!&!#(B

$B;d$N(B emacs $B$G$b(B '%' $B$G$G$-$^$9(B:-)$B!%(B

--
$B!y!y(B $B>.ED?.Fs(B $B!w(B $B2#2OEE5!!J3t!K#I#A3+H/#1It(B                     $B!y!y(B 
$B!y!y(B ODA Shinji (oda@pa.yokogawa.co.jp) Yokogawa Electric Corp. $B!y!y(B
