n[
Size: a a a
n[
¥
¥
A
VL
Aß
Aß
Aß
Aß
Aß
n
IH
¥
Aß
(defun my-string-at (&optional pos)
"Return string at POS, POS defaults to point."
(when-let* ((parse-data (syntax-ppss pos))
(start (ppss-comment-or-string-start parse-data))
(terminator (ppss-string-terminator parse-data))
(regexp (rx (not (syntax escape))
(* (= 2 (syntax escape)))
(literal (string terminator))))
(end (save-excursion
(search-forward-regexp regexp nil t))))
(buffer-substring start end)))
Aß
DL
Aß