Commits

steveb  committed 8313142

Multibyte character fix for edebug

  • Participants
  • Parent commits 578020f

Comments (0)

Files changed (3)

+1998-03-12  SL Baur  <steve@altair.xemacs.org>
+
+	* edebug.el (edebug-next-token-class): Give all multibyte
+	characters symbol token class.
+	(edebug-read-symbol): Ditto.
+	(edebug-read-sexp): Ditto.
+
 1998-01-24  SL Baur  <steve@altair.xemacs.org>
 
 	* Makefile (VERSION): Update to package standard 1.0.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.03
+VERSION = 1.04
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = edebug
   ;; lparen, rparen, dot, quote, backquote, comma, string, char, vector,
   ;; or symbol.
   (edebug-skip-whitespace)
-  (aref edebug-read-syntax-table (following-char)))
+  (let ((c (following-char)))
+    (if (> c 255)
+	'symbol
+      (aref edebug-read-syntax-table c))))
 
 
 (defun edebug-skip-whitespace ()
      ;; is immediately followed by non-whitespace.
      ((eq class 'symbol) (prog1
 			     (edebug-original-read (current-buffer))
-			   (if (not (eq (aref edebug-read-syntax-table 
-					      (preceding-char)) 'symbol))
+			   (if (not (or (> (preceding-char) 255)
+					(eq (aref edebug-read-syntax-table 
+						  (preceding-char)) 'symbol)))
 			       (forward-char -1))))
      ((eq class 'string) (prog1
 			     (edebug-original-read (current-buffer))
   (prog1
       (edebug-original-read stream)
     ;; loses for escaped chars
-    (if (not (eq (aref edebug-read-syntax-table 
-		       (preceding-char)) 'symbol))
+    (if (not (or (> (preceding-char) 255)
+		 (eq (aref edebug-read-syntax-table 
+			   (preceding-char)) 'symbol)))
 	(forward-char -1))))
 
 (defun edebug-read-string (stream)