(lambda (proc event)
(unless (string-prefix-p "deleted" event)
(let ((image (create-image
- (string-as-unibyte elopher-selector-string)
+ (encode-coding-string elopher-selector-string
+ 'no-conversion)
nil t)))
(elopher-with-clean-buffer
(insert-image image))