From owner-ports-jp@jp.FreeBSD.org Wed Jun  8 12:54:32 2005
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id j583sWD71431;
	Wed, 8 Jun 2005 12:54:32 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from alcoholic.geiin.org (usen-59x87x89x234.ap-US02.usen.ad.jp [59.87.89.234])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id j583sVh71426
	for <ports-jp@jp.FreeBSD.org>; Wed, 8 Jun 2005 12:54:32 +0900 (JST)
	(envelope-from yoichi@geiin.org)
Received: from alcoholic.local-net.geiin.org (alcoholic.local-net [192.168.1.1])
	by alcoholic.geiin.org (Postfix) with ESMTP
	id 31D641DF08; Wed,  8 Jun 2005 12:54:26 +0900 (JST)
Message-ID: <86is0ph5am.wl%yoichi@geiin.org>
From: Yoichi NAKAYAMA <yoichi@geiin.org>
To: ports-jp@jp.FreeBSD.org
Cc: hrs@freebsd.org
In-Reply-To: <871x7g9cmp.wl%yoichi@FreeBSD.org>
References: <20050605.222704.74724417.shimura@math.cst.nihon-u.ac.jp>
	<871x7g9cmp.wl%yoichi@FreeBSD.org>
User-Agent: Wanderlust/2.14.0 (Africa) SEMI/1.14.6 (Maruoka) FLIM/1.14.7
 (=?ISO-8859-4?Q?Sanj=F2?=) APEL/10.6 Emacs/21.2 (i386--freebsd) MULE/5.0
 (SAKAKI)
Organization: Geiin.org
MIME-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka")
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Jun__8_12:54:25_2005-1"
Reply-To: ports-jp@jp.FreeBSD.org
Precedence: list
Date: Wed, 08 Jun 2005 12:54:25 +0900
X-Sequence: ports-jp 16112
Subject: [ports-jp 16112] Re: editor/psgml-emacs20
 =?ISO-2022-JP?B?GyRCJEckTiUoJWkhPBsoQg==?= 
Sender: owner-ports-jp@jp.FreeBSD.org
X-Originator: yoichi@geiin.org
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+050320

--Multipart_Wed_Jun__8_12:54:25_2005-1
Content-Type: text/plain; charset=ISO-2022-JP

At Mon, 06 Jun 2005 16:18:38 +0900,
Yoichi Nakayama wrote:
> At Sun, 05 Jun 2005 22:27:04 +0900,
> SHIMURA Tatsuya wrote:
> > editor/psgml-emacs20 $B$r<!$N$b$N$K99?7$7$?$H$3$m!"$A$g$C$HIT6q9g$,5/$-(B
> > $B$?$N$GJs9p$7$^$9!#(B
> > 
> > $FreeBSD: ports/editors/psgml-emacs20/Makefile,v 1.16 2005/05/12 20:27:09 hrs Exp $
> > 
> > 
> > html $B%U%!%$%k$rJT=8$7$h$&$H$7$F(B C-c C-e (sgml-insert-element) $B$r<B9T$7(B
> > $B$?$H$3$m!"(B
> > 
> >    Symbol's function definition is void: remq 
> > 
> > $B$H$$$&%(%i!<$K$J$j$^$7$?!#3NG'$N$?$a!"(B
> > 
> >    (require 'psgml-startup)
> > 
> > $B$N$_$r(B .emacs $B$K5-=R$7$F?7$?$K(B html $B%U%!%$%k$r:n@.$7$h$&$H$7$^$7$?$,!"(B
> > $BF1$8%(%i!<$,5/$-$^$9!#(B
> > 
> > remq $B$O(B /usr/local/share/emacs/20.7/lisp/emacs-lisp/cl.el $B$GDj5A$5$l$F(B
> > $B$$$?$N$G!";n$7$K(B cl.el $B$r(B load $B$7$F$d$k$H>e5-$N%(%i!<$O5/$-$J$/$J$j$^$7$?!#(B
> 
> $B<j85$G$b:F8=$G$-$^$7$?!#(Bupstream $B$N%P%0$H8@$($k$H;W$$$^$9!#(B
> psgml-parse.el $B$G(B (eval-when-compile (require 'cl))
> $B$7$F$$$F(B remq $B$O(B macro $B$G$J$/(B function $B$H$7$FDj5A$5$l$F$$$k(B
> $B$N$G<B9T;~$K$J$$$H%(%i!<$K$J$j$^$9!#(Bemacs21 $B$@$H(B remq $B$NDj5A$,(B
> subr.el $B$K0\F0$5$l$F$$$k$N$GLdBj$O$G$^$;$s!#(B
> $B3:EvItJ,$N(B remq $B$rDj5A$NFbMF$GCV$-49$($F$7$^$&$N$,BEEv$+$J!#(B

patch $B$rIU$1$^$9!#(Bports/editors/psgml/files/ $B$KCV$1$P$h$$$H(B
$B;W$$$^$9$,F0:n3NG'$O$7$F$^$;$s!#(B
-- 
Yoichi NAKAYAMA

--Multipart_Wed_Jun__8_12:54:25_2005-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="patch-psgml-parse.el"
Content-Transfer-Encoding: 7bit

*** psgml-parse.el.orig	Sun Mar  6 01:23:40 2005
--- psgml-parse.el	Wed Jun  8 12:47:33 2005
***************
*** 568,574 ****
        (setq s1 (car l)
  	    allfinal (and allfinal (sgml-state-final-p s1))
  	    s2 (sgml-get-move s1 token)
! 	    res (and s2 (sgml-make-and-state s2 (remq s1 dfas) next))
  	    l (cdr l)))
      (cond (res)
  	  (allfinal (sgml-get-move next token)))))
--- 568,580 ----
        (setq s1 (car l)
  	    allfinal (and allfinal (sgml-state-final-p s1))
  	    s2 (sgml-get-move s1 token)
! 	    res (and s2
! 		     (sgml-make-and-state
! 		      s2
! 		      (if (memq s1 dfas)
! 			  (delq s1 (copy-sequence dfas))
! 			dfas)
! 		      next))
  	    l (cdr l)))
      (cond (res)
  	  (allfinal (sgml-get-move next token)))))

--Multipart_Wed_Jun__8_12:54:25_2005-1--
