From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Aug 2002 17:28:26 +0000 (+0000)
Subject: (edebug-read-syntax-table): Use a char table
X-Git-Tag: emacs-pretest-21.2.91~108
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65fab44b6b4aed6cb14692ddd402211ae983bb0f;p=emacs.git

(edebug-read-syntax-table): Use a char table
to account for non-ASCII characters.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8a0671653f..032c96bbba4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-16  Dave Love  <fx@gnu.org>
+
+	* emacs-lisp/edebug.el (edebug-read-syntax-table): Use a char
+	table to account for non-ASCII characters.
+
 2002-08-15  Richard M. Stallman  <rms@gnu.org>
 
 	* loadup.el: Load international/ucs-tables.elc.
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index d265c262b2f..7b1bd2f00fd 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -684,7 +684,7 @@ or if an error occurs, leave point after it with mark at the original point."
 (defconst edebug-read-syntax-table
   ;; Lookup table for significant characters indicating the class of the
   ;; token that follows.  This is not a \"real\" syntax table.
-  (let ((table (make-vector 256 'symbol))
+  (let ((table (make-char-table 'syntax-table 'symbol))
 	(i 0))
     (while (< i ?!)
       (aset table i 'space)