Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!spinnews!inetgw.melco!cowtop!cowtop!tyama
From: tyama@eoa.cow.melco.co.jp (Takashi Yamamoto/=?ISO-2022-JP?B?GyRCOzNLXDknO0sbKEI=?=)
Subject: Re: search matching-patern
In-Reply-To: furihata@hangi.tjsys.co.jp's message of Tue, 1 Nov 1994
 06:58:36 GMT
Nntp-Posting-Host: seafood
Content-Type: text/plain; charset=ISO-2022-JP
References: <FURIHATA.94Nov1155836@mmas4.hangi.tjsys.co.jp>
Sender: news@cowtop.cow.melco.co.jp (cow news system)
Mime-Version: 1.0
Organization: Mitsubishi Electric, Kamakura, Japan.
Date: Wed, 2 Nov 1994 03:32:48 GMT
Message-ID: <TYAMA.94Nov2123249@seafood.cow.melco.co.jp>
Distribution: fj
Lines: 51
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5081
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5081&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;3K\!w;0I)EE5!$G$9!#(B

> $B;~9o(B Tue, 1 Nov 1994 06:58:36 GMT $B$K(B
> Mamoru Furihata$B$5$s$N=P$7$?(B
> Message-ID <FURIHATA.94Nov1155836@mmas4.hangi.tjsys.co.jp
> Newsgroup  fj.editor.emacs$B$N(B
> search matching-patern $B$H$$$&OCBj$G$O(B...

($BN,(B)
$B9_4z$5$s(B> $B$l$O(B $B$3$l$GNI$$$N$G$9$,!"4{$KF~NO$5$l$F$$$k%+%C%3!J3+JD$I$A(B
$B9_4z$5$s(B> $B$i$G$b!K$,(B $B$I$l(B $B$KBP1~$9$k$+$r4JC1$K8+$D$1$k%3%^%s%I$O$J$$$G(B
$B9_4z$5$s(B> $B$7$g$&$+!#(B
$B9_4z$5$s(B>  vi $B$G$O!"(B`%'$B$N%-!<$r2!$9$H$G$-$k$s$G$9$,!&!&!&!#(B

$B;d$b$=$&;W$C$F!"(Bvip$B%b!<%I$+$i$Q$/$C$F$-$?0J2<$N$b$N$r;H$C$F$$$^$9!#(B
$B!t$$$^$@$K(Beasy-hack$B$7$+$G$-$J$$;d(B...
$B!t2?$+LdBj$"$C$?$i65$($F2<$5$$!d%W%m%U%'%C%7%g%J%k$J?M(B
--$B$3$3$+$i(B--
;;
;; paren match(original vip-mode.el)
;;
;;(global-set-key "\C-c%" 'paren-match)
(defun paren-match (arg)
  "Go to the matching parenthesis."
  (interactive "P")
  (let ((com (cond ((null arg) nil)
   ((consp arg) (cdr arg))
   (t nil)))(c-getcom arg))
    (if (numberp arg)
(if (or (> arg 99) (< arg 1))
    (error "Prefix must be between 1 and 99.")
  (goto-char
   (if (> (point-max) 80000)
       (* (/ (point-max) 100) arg)
     (/ (* (point-max) arg) 100)))
  (back-to-indentation))
      (cond ((looking-at "[\(\[{]")
     (if com (move-marker nil (point)))
     (forward-sexp 1)
     (if com
 (paren-match nil com)
       (backward-char)))
    ((looking-at "[])}]")
     (forward-char)
     (if com (move-marker nil (point)))
     (backward-sexp 1)
     (if com (paren-match nil com)))
    (t (error ""))))))

;;
--$B$3$3$^$G(B--
