From: Richard M. Stallman 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 + + * emacs-lisp/edebug.el (edebug-read-syntax-table): Use a char + table to account for non-ASCII characters. + 2002-08-15 Richard M. Stallman * 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)