procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix edebug parsing of .,

Browse source 
* lisp/emacs-lisp/edebug.el (edebug-next-token-class): Parse .,
correctly (bug#37653).
This commit is contained in:
Lars Ingebrigtsen 2022-06-19 14:25:37 +02:00
parent d60d96ffa0
commit d181e410fc
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/edebug.el
View file

@ -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)) (or (and (eq (aref edebug-read-syntax-table (following-char))
'symbol) 'symbol)
(not (= (following-char) ?\;))) (not (= (following-char) ?\;)))
(memq (following-char) '(?\, ?\.))))) (eq (following-char) ?.))))
'symbol 'symbol
(aref edebug-read-syntax-table (following-char)))) (aref edebug-read-syntax-table (following-char))))

9
test/lisp/emacs-lisp/edebug-tests.el
View file

@ -1104,5 +1104,14 @@ This avoids potential duplicate definitions (Bug#41988)."
(edebug-initial-mode 'Go-nonstop)) (edebug-initial-mode 'Go-nonstop))
(eval-buffer)))) (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) (provide 'edebug-tests)
;;; edebug-tests.el ends here ;;; edebug-tests.el ends here