Fix instrumenting code with propertized strings in Edebug

* lisp/emacs-lisp/edebug.el (edebug-read-function): Allow
'read' to decide what is and isn't a syntax error.  (Bug#25068)

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index ec0f08de35626a523e16f26cc689decdf553a217..a8838046a4d9269394b2f14cec20305b9b7e00dc 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -880,11 +880,9 @@ Maybe clear the markers and delete the symbol's edebug property?"
         (list
          (edebug-storing-offsets (- (point) 2) 'function)
          (edebug-read-storing-offsets stream)))
-       ((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6
-                                 ?7 ?8 ?9 ?0))
+        (t
         (backward-char 1)
-        (read stream))
-       (t (edebug-syntax-error "Bad char after #"))))
+        (read stream))))
 
 (defun edebug-read-list (stream)
   (forward-char 1)                     ; skip \(