master d181e410fc: Fix edebug parsing of .,

[Lars Ingebrigtsen]

branch: master
commit d181e410fcb26a293e8345fad54507d275fc807c
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix edebug parsing of .,
    
    * lisp/emacs-lisp/edebug.el (edebug-next-token-class): Parse .,
    correctly (bug#37653).
---
 lisp/emacs-lisp/edebug.el            | 2 +-
 test/lisp/emacs-lisp/edebug-tests.el | 9 +++++++++
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index ad66cfc2b8..b05ec3a768 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -675,7 +675,7 @@ Maybe clear the markers and delete the symbol's edebug 
property?"
             (or (and (eq (aref edebug-read-syntax-table (following-char))
                          'symbol)
                      (not (= (following-char) ?\;)))
-                (memq (following-char) '(?\, ?\.)))))
+                (eq (following-char) ?.))))
       'symbol
     (aref edebug-read-syntax-table (following-char))))
 
diff --git a/test/lisp/emacs-lisp/edebug-tests.el 
b/test/lisp/emacs-lisp/edebug-tests.el
index 35259a796a..008e1e467b 100644
--- a/test/lisp/emacs-lisp/edebug-tests.el
+++ b/test/lisp/emacs-lisp/edebug-tests.el
@@ -1104,5 +1104,14 @@ This avoids potential duplicate definitions (Bug#41988)."
           (edebug-initial-mode 'Go-nonstop))
       (eval-buffer))))
 
+(ert-deftest edebug-test-dot-reader ()
+  (with-temp-buffer
+    (insert "(defun x () `(t .,t))")
+    (goto-char (point-min))
+    (should (equal (save-excursion
+                     (edebug-read-storing-offsets (current-buffer)))
+                   (save-excursion
+                     (read (current-buffer)))))))
+
 (provide 'edebug-tests)
 ;;; edebug-tests.el ends here