From: Gemini Lasswell <gazally@runbox.com>
Date: Fri, 10 Feb 2017 09:35:20 +0000 (+0200)
Subject: Fix instrumenting code with propertized strings in Edebug
X-Git-Tag: emacs-26.0.90~848^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c48f8fa51b51746ffd39f7b973c471cd60994c8e;p=emacs.git

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 ec0f08de356..a8838046a4d 100644
--- 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 \(