bug#64423: 29.0.92; save-interprogram-paste-before-kill doesn't prevent streaming large selections

[Eli Zaretskii]

> Cc: Spencer Baugh <sbaugh@janestreet.com>, 64423@debbugs.gnu.org
> From: sbaugh@catern.com
> Date: Sat, 08 Jul 2023 16:39:00 +0000 (UTC)
> 
> diff --git a/lisp/simple.el b/lisp/simple.el
> index 26944f1f72d..95d00cc506b 100644
> --- a/lisp/simple.el
> +++ b/lisp/simple.el
> @@ -5618,8 +5618,10 @@ kill-new
>        (if (fboundp 'menu-bar-update-yank-menu)
>         (menu-bar-update-yank-menu string (and replace (car kill-ring)))))
>      (when save-interprogram-paste-before-kill
> -      (let ((interprogram-paste (and interprogram-paste-function
> -                                     (funcall interprogram-paste-function))))
> +      (let ((interprogram-paste
> +             (ignore-error 'quit
> +               (and interprogram-paste-function
> +                    (funcall interprogram-paste-function)))))
>          (when interprogram-paste
>            (setq interprogram-paste
>                  (if (listp interprogram-paste)

Are you sure this is TRT for all the implementations of GUI
selections?  AFAIU, the discussion was only about X.