From 65fab44b6b4aed6cb14692ddd402211ae983bb0f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Aug 2002 17:28:26 +0000 Subject: [PATCH] (edebug-read-syntax-table): Use a char table to account for non-ASCII characters. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/edebug.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.5