Re: [RFC]: replace-region-contents

[Tassilo Horn]

Stefan Monnier <address@hidden> writes:

>> --8<---------------cut here---------------start------------->8---
>> (defun replace-region-contents (beg end replace-fn)
>>   (save-excursion
>>     (save-restriction
>>       (narrow-to-region beg end)
>>       (goto-char (point-min))
>>       (let ((repl (funcall replace-fn)))
>>      (if (bufferp repl)
>>          (replace-buffer-contents repl)
>>        (let ((source-buffer (current-buffer)))
>>          (with-temp-buffer
>>            (insert repl)
>>            (let ((tmp-buffer (current-buffer)))
>>              (set-buffer source-buffer)
>>              (replace-buffer-contents tmp-buffer)))))))))
>> --8<---------------cut here---------------end--------------->8---
>
> LGTM

How would I actually use that version with a replace-fn returning a
buffer and not a string?  It looks to me that I need to do the whole
ceremony of creating a temporary buffer, setting buffers, and ensuring
that the temporary buffer is killed even in the case of an abnormal exit
myself.  That's the hassle my original version tried to eliminate in the
first place...

Bye,
Tassilo