# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997267894 0
# Node ID 098eb6e24910244a1266cd9b2ba8aa9271353020
# Parent  7d62f0684e9966552791f333fbe831ff36f4c884
(edebug-read-function): Fix handling of
#:, #x, #o, and similar constructs.

diff -r 7d62f0684e99 -r 098eb6e24910 lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Tue Aug 07 15:22:40 2001 +0000
+++ b/lisp/emacs-lisp/edebug.el	Wed Aug 08 10:51:34 2001 +0000
@@ -1,6 +1,6 @@
 ;;; edebug.el --- a source-level debugger for Emacs Lisp
 
-;; Copyright (C) 1988, 89, 90, 91, 92, 93, 94, 95, 97, 1999, 2000
+;; Copyright (C) 1988, 89, 90, 91, 92, 93, 94, 95, 97, 1999, 2000, 2001
 ;;       Free Software Foundation, Inc.
 
 ;; Author: Daniel LaLiberte <liberte@holonexus.org>
@@ -909,10 +909,9 @@
 	  (edebug-storing-offsets (point)  
 	    (if (featurep 'cl) 'function* 'function))
 	  (edebug-read-storing-offsets stream)))
-	((memq (char-after)
-	       ;; Other # read forms than these probably shouldn't be
-	       ;; in source.
-	       '(?: ?B ?O ?X ?b ?o ?x))
+	((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6
+				    ?7 ?8 ?9 ?0))
+	 (backward-char 1)
 	 (edebug-original-read stream))
 	(t (edebug-syntax-error "Bad char after #"))))