Mercurial > hg > xemacs-beta

diff lisp/symbol-syntax.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 70ad99077275
children
line wrap: on
line diff
--- a/lisp/symbol-syntax.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/symbol-syntax.el	Mon Aug 13 11:07:10 2007 +0200
@@ -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)