(edebug-read-syntax-table): Use a char table

to account for non-ASCII characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8a0671653fd62e5d8791b187d0fc2a2f608a1c8..032c96bbba4b5bd484ff16d3c1d595b416ea97c2 100644 (file)
--- 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 d265c262b2fc1cebf53c31f1c3fc104eb7db38cb..7b1bd2f00fdfa71a52b578b27daa8fd23577f39c 100644 (file)
--- 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)