Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sinfony-news!news.sinfony.ad.jp!sonygw2!shigw!ganews.ga.sony.co.jp!news
From: =?ISO-2022-JP?B?GyRCOzMyLBsoQiAbJEI5bkh+GyhC?= <yamaoka@ga.sony.co.jp>
Newsgroups: fj.editor.emacs
Subject: Re: [Q] customizing c-mode
Date: 24 Jan 1996 08:57:45 GMT
Organization: Consumer A&V Products Company, Sony Corporation, Tokyo, Japan.
Lines: 79
Sender: yamaoka@beer.ga.sony.co.jp
Message-ID: <28bununf52.fsf@beer.ga.sony.co.jp>
References: <B0512.96Jan23151603@bhind.nibh.go.jp>
	<SKOUZUMA.96Jan23162802@ss2003.cad.fqs.fujitsu.co.jp>
	<ONONO.96Jan23194247@etsu.fuka.info.waseda.ac.jp>
	<KAWAKAMI.96Jan23204719@indara.sml.t.u-tokyo.ac.jp>
NNTP-Posting-Host: beer.ga.sony.co.jp
Mime-Version: 1.0 (generated by tm-edit 7.41)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Jan_24_17:57:45_1996-1"
Content-Transfer-Encoding: 7bit
X-Face: I^U0(J'Dk3(>vvfmA.$Xw?JC`51Ns)!fn%}h;?c-lZ<I$3x8[3f0wpM~+W64-(#ftZQ)ea>
 CjM=:P3s&d5`$up0Vg4@Z7I>97v7E4-^dYj+Iq!cP|y#drEnC9z%C4#?vs[B5|]nRIxDsHVa-]x;2+
 ur6l7HEl;r[R$cYU#A_.)C7);K9a
X-Newsreader: sGnus[0.30]+tm[7.41.1] / Mule[2.3@19.30]
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5900
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5900&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.

--Multipart_Wed_Jan_24_17:57:45_1996-1
Content-Type: text/plain; charset=ISO-2022-JP

$B%=%K!<$N;32,$G$9!#(B

>>>>> In article <KAWAKAMI.96Jan23204719@indara.sml.t.u-tokyo.ac.jp>
>>>>>   kawakami@sml.t.u-tokyo.ac.jp (KAWAKAMI Hiroki) writes:

> $B@n>e!wEl5~Bg$G$9!#(B

ONO> $B3g8L$NBP1~$H$$$&0UL#$G$O(B
ONO> M-C-fforward-sexp
ONO> M-C-bbackward-sexp
ONO> M-C-nforward-list
ONO> M-C-pbackward-list

> $B;d$O(B, $B$D$$$3$N$"$$$@(B gnu.emacs.sources $B$KN.$l$?(B stig-paren.el $B$,(B
> $B7k9=5$$KF~$C$F$$$^$9!#(B

  $B$^$@%K%e!<%9%9%W!<%k$K;D$C$F$$$?$N$G(B Mule-2.3@19.30 $B$G;H$C$F$_$^$7$?!#(B
  $B$3$l$ONI$$$G$9$M!#(B
  $B$?$@!"!V!W$d!X!Y$K(B mismatch $B$N(B face $B$,IU$$$F$7$^$&$N$G!"0J2<$N$h$&$K(B
  $BD>$7$F$_$^$7$?!#(B($BM>7W$J$H$3$m$^$G$$$8$C$F$k$+$b$7$l$^$;$s!#(B^^;;)

--Multipart_Wed_Jan_24_17:57:45_1996-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename=stig-paren.el.diff
Content-Transfer-Encoding: 7bit

--- stig-paren.el.origWed Jan 24 17:56:57 1996
+++ stig-paren.elWed Jan 24 17:56:57 1996
@@ -214,8 +214,9 @@
       (if paren-dingaling-mode
   ;; dingaling mode highlighting
   (cond ((eq (char-syntax (following-char)) ?\))
- (setq dir -1 oldpos (1+ oldpos))
- (forward-char 1))
+ (setq dir -1)
+ (forward-char 1)
+ (setq oldpos (point)))
 ((eq (char-syntax (following-char)) ?\()
  (setq dir 1))
 ((eq (char-syntax (preceding-char)) ?\))
@@ -263,7 +264,12 @@
         (and mparen
  (/= (char-syntax (char-after beg)) ?\\)
  (/= (char-syntax (char-after beg)) ?\$)
- (/= (char-after (1- end)) mparen)))
+ (/= (char-after
+      (save-excursion
+(goto-char end)
+(backward-char 1)
+(point))
+      ) mparen)))
       (if paren-sexp-mode
   (stig-paren-set-overlay beg end)))
     (and mismatch
@@ -308,7 +314,10 @@
     (not (bolp)))
   (concat (buffer-substring
    (progn (beginning-of-line) (point))
-   (1+ pos)) "...")
+   (save-excursion
+     (forward-char 1)
+     (point))
+   ) "...")
 (buffer-substring
  pos (progn
        (forward-char 1)

--Multipart_Wed_Jan_24_17:57:45_1996-1
Content-Type: text/plain; charset=US-ASCII

-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
MD Dep., Personal A&V Products Div., Consumer A&V Products Company,
Sony Corporation, Tokyo, Japan.

--Multipart_Wed_Jan_24_17:57:45_1996-1--
