DL
Size: a a a
DL
DL
DL
Aß
DL
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)))
(defun my-string-at (&optional pos)
"Return string at POS, POS defaults to point."
(save-excursion
(save-restriction
(widen)
(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 (search-forward-regexp regexp nil t)))
(buffer-substring start end)))))
DL
Aß
¥
¥
DL
¥
¥
¥
¥
VL
¥
ПФ
A