- (` (let ((string (copy-sequence (, string))))
- (map-extents (function (lambda (extent maparg)
- (delete-extent extent))
- string 0 (length string)))
- string)))
+ `(let ((string (copy-sequence ,string)))
+ (map-extents (function (lambda (extent maparg)
+ (delete-extent extent))
+ string 0 (length string)))
+ string))