bug#58029: 28.2; Struct boundaries ignored by bounds-of-thing-at-point

[Lars Ingebrigtsen]

Richard Hopkins <emacs@unbit.co.uk> writes:

> Thanks for checking, however, I still get the same issue on what I
> believe is Emacs 29...

It only recognises these constructs if you're in a buffer where the
syntax rules say so.  So try:

(with-temp-buffer
  (insert (prin1-to-string (make-foo :a 1)))
  (emacs-lisp-mode)
  (goto-char (point-min))
  (list
   (buffer-string)
   (bounds-of-thing-at-point 'sexp)
   (prin1-to-string (read (current-buffer)))))

=> ("#s(foo 1)" (1 . 10) "#s(foo 1)")