(gv-define-setter buffer-string (store)
`(insert (prog1 ,store (erase-buffer))))
Unfortunately, it is marked obsolete since 29.1. The NEWS says: (setf (point-min) 4)
These never caught on and have been made obsolete. The form above,
for instance, is the same as saying (narrow-to-region 4 (point-max))