X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fsymbol-syntax.el;h=285498e296ad958d04b1b1dad5ea8a3899a43fa7;hb=2df059c60e547b9e6c827eea2682bd1511983dc0;hp=871e4fe999bea4bf7ee25a329210c8c3cae104ab;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/symbol-syntax.el b/lisp/symbol-syntax.el
index 871e4fe..285498e 100644
--- a/lisp/symbol-syntax.el
+++ b/lisp/symbol-syntax.el
@@ -101,14 +101,12 @@
 ;; ?_)
 
 (defun show-chars-with-syntax (tables syntax)
-  (let ((osyn (syntax-table))
-	(schars nil))
+  (let ((schars nil))
     (unwind-protect
 	(while (consp tables)
 	  (let* ((chars nil)
 		 (table-symbol (car tables))
-		 (table table-symbol)
-		 (i 0))
+		 (table table-symbol))
 	    (or (symbolp table-symbol)
 		(error "bad argument non-symbol"))
 	    (while (symbolp table)