(edebug-next-token-class): Allow all symbol-constituent characters

after dot, not only digits.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 9a7b9efc333..0a6e3fed349 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -714,8 +714,10 @@ already is one.)"
   (if (and (eq (following-char) ?.)
            (save-excursion
              (forward-char 1)
-             (and (>= (following-char) ?0)
-                  (<= (following-char) ?9))))
+             (or (and (eq (aref edebug-read-syntax-table (following-char))
+                          'symbol)
+                      (not (= (following-char) ?\;)))
+                 (memq (following-char) '(?\, ?\.)))))
       'symbol
     (aref edebug-read-syntax-table (following-char))))