James Thomas <> writes:

> Eli Zaretskii <eliz@gnu.org> writes:
>
>>> From: James Thomas <>
>>> Cc: 79197@debbugs.gnu.org,  monnier@iro.umontreal.ca
>>> Date: Mon, 11 Aug 2025 18:37:38 +0530
>>> 
>>> Eli Zaretskii <eliz@gnu.org> writes:
>>> 
>>> > OK, so given these observations, how do you propose to continue?  Do
>>> > you have a patch to propose, either for the doc string or for the code
>>> > or both? if so, please show the patch, and let's take it from there.
>>> 
>>> 
>>> diff --git a/lisp/simple.el b/lisp/simple.el
>>> index cd13e0a55f4..97701ead69d 100644
>>> --- a/lisp/simple.el
>>> +++ b/lisp/simple.el
>>> @@ -5758,9 +5758,10 @@ kill-new
>>>  	  (setcar kill-ring string)
>>>          (let ((history-delete-duplicates nil))
>>>            (add-to-history 'kill-ring string kill-ring-max t))))
>>> -    (setq kill-ring-yank-pointer kill-ring)
>>> +    (prog1
>>> +        (setq kill-ring-yank-pointer kill-ring)
>>>      (if interprogram-cut-function
>>> -        (funcall interprogram-cut-function string))))
>>> +        (funcall interprogram-cut-function string)))))
>>
>> Why do we need this hunk?
>
> For the correct return value?

Mea culpa: