Reply-To: mule-jp@etl.go.jp
Sender: handa@etl.go.jp
X-Seqno: 1906
Date: Sat, 13 Mar 93 16:22:23 JST
From: zic@tci10.tci.toshiba.co.jp (Nobuyoshi Kamei)
Return-Path: <zic@tci10.tci.toshiba.co.jp>
To: mule-jp@etl.go.jp
Subject: tags-fix for Mule

$B$3$N(BML$B$G!"(Bjbw$B;a$N(Btags-fix$B$N%f!<%6$,$I$NDxEY$$$k$N$+!"CN$j$^$;$s$,!D!D(B

tags-fix$B$O!"J#?t$N%?%0!&%F!<%V%k!&%U%!%$%k$r07$($k%f!<%F%#%j%F%#$G$9!#(B
$B$^$?!"%?%0$G8+$D$1$?2U=j$N%^!<%/!&%j%s%0$rI8=`$H$OJL$K;}$C$F$^$9!#(B
$BB>$K!"%?%0$NJd405!G=$,$"$j$^$9!#(B
$B$=$NB>$$$m$$$m$"$k$h$&$G$9!#(B

$B:G?7HG$O!"(B
    	/ftp@cs.bu.edu:pub/jbw/emacs/tags-fix.shar
$B$@$=$&$G$9!#(B

$B$G!"(BMule$B$N(Bdeeper syntax$B$K$R$C$+$+$k$N$G!"$=$N$^$^$G$O;H$($J$+$C$?$N$G$9$,!"(B
$B:#2s;d$,%Q%C%A$r:n$j$^$7$?!#Bg$7$?$b$s$8$c$J$$$G$9$,!#(B

;; Created by: JBW, JBW@_CORTEZ
;; Created on: Wed Jun 20 15:15:34 1990
;; Last modified by: Joe Wells, jbw@dodge
;; Last modified on: Mon Jul  2 18:23:23 1990
;; Filename: symbol-syntax.el
;; Purpose: find chars with symbol syntax

$BMQ$N%Q%C%A$G$9!#(B

--- symbol-syntax.el.~1~	Mon Dec 16 12:14:14 1991
+++ symbol-syntax.el	Fri Feb 19 13:23:05 1993
@@ -52,17 +52,44 @@
 	(error "Non-syntax-table item in alist"))
     result))
 
+;   >>	ZIC NK1993021950    {
+;(defun make-symbol-syntax-table (in-table)
+;  (let ((osyn (syntax-table))
+;	(out-table (copy-syntax-table in-table))
+;	(i 0)
+;	(syntax nil))
+;    (while (< i 256)
+;      (setq syntax (aref out-table i))
+;      (if (eq 3 (logand 255 syntax))
+;	  (aset out-table i (logior 2 (logand (lognot 255) syntax))))
+;      (setq i (1+ i)))
+;    out-table))
+;   >>	ZIC NK1993021950    }
+;   <<	ZIC NK1993021950    {
 (defun make-symbol-syntax-table (in-table)
-  (let ((osyn (syntax-table))
+  (let (
 	(out-table (copy-syntax-table in-table))
-	(i 0)
-	(syntax nil))
-    (while (< i 256)
-      (setq syntax (aref out-table i))
-      (if (eq 3 (logand 255 syntax))
-	  (aset out-table i (logior 2 (logand (lognot 255) syntax))))
-      (setq i (1+ i)))
-    out-table))
+	)
+    (make-symbol-syntax-table-1	out-table)
+    ))
+
+(defun	make-symbol-syntax-table-1  (out-table)
+  (let	(
+	 (i 	    0)
+	 (syntax    nil)
+	 )
+    (while  (< i 256)
+      (setq syntax  (aref   out-table	i))
+      (if   (syntax-table-p syntax)
+	  (setq	syntax	(make-symbol-syntax-table-1 syntax))
+	(if (eq 3 (logand 255 syntax))
+	    (aset out-table i (logior 2 (logand (lognot 255) syntax))))
+	)
+      (setq	i   (1+ i))
+      )
+    )
+  out-table)
+;   <<	ZIC NK1993021950    }
 
 ;; stuff for examining contents of syntax tables
 ;;(show-chars-with-syntax


$B$G!"(BOK$B$NH&$G$9!#(B

$BF1$8%U%!%$%k$K$"$k!"(Bsymbol-syntax-table-alist$B$O!"(Bnil$B$K@_Dj$7$?J}$,(B
$B$$$$$h$&$G$9!#;d$N;}$C$F$$$kHG$G$O$=$&$J$C$F$$$^$9!#(B
$B$3$N%j%9%H$K!"(Blisp-mode-syntax-table$BEy$,F~$C$F$$$k$H(B
update-symbol-syntax-table-alist$BCf$GL58B%k!<%W$K$J$k$h$&$G$9!#(B

	     (while (symbolp item)
	       (setq item (symbol-value item)))

$B$,!"H4$1$i$l$J$/$J$k$N$G!#(B

    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    	$B550f!!?.5A(B		E-mail: zic@tci.toshiba.co.jp
      $BEl<G(BCAE$B%7%9%F%`%:!J3t!K(B   $B%3%s%T%e!<%?5;=QIt(B $B%3%s%T%e!<%?5;=Q(B
	    7N1HVR/430MHz	Phone: 	(044) 246-0366


