Fix edebug parsing of .,

* lisp/emacs-lisp/edebug.el (edebug-next-token-class): Parse .,
correctly (bug#37653).

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index ad66cfc2b8151a4e1dface17d67a1c6c930da972..b05ec3a7683485c9aa39b5ad95b6a5326dcd13c4 100644 (file)
--- 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 35259a796a0e957846278b72f380f70bab730de8..008e1e467ba2eaeb0699c60401a544d8d85013d5 100644 (file)
--- 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