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

Previous Next

Full log

View this message in rfc822 format

From: Eli Zaretskii <eliz <at> gnu.org>
To: sbaugh <at> catern.com
Cc: luangruo <at> yahoo.com, sbaugh <at> janestreet.com, 64423 <at> debbugs.gnu.org
Subject: bug#64423: 29.0.92; save-interprogram-paste-before-kill doesn't prevent streaming large selections
Date: Thu, 13 Jul 2023 21:39:51 +0300

> From: sbaugh <at> catern.com
> Date: Thu, 13 Jul 2023 16:17:32 +0000 (UTC)
> Cc: luangruo <at> yahoo.com, sbaugh <at> janestreet.com, 64423 <at> debbugs.gnu.org
> 
> > You can do it in a way that is not objectionable to either of us.  It
> > is very simple: make the changes conditioned on X.
> 
> OK, how about this?
> 
> modified   lisp/simple.el
> @@ -5618,8 +5618,11 @@ 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
> +             (and interprogram-paste-function
> +                  (if (eq (window-system) 'x)
> +                      (ignore-error 'quit (funcall interprogram-paste-function))
> +                    (funcall interprogram-paste-function)))))
>          (when interprogram-paste
>            (setq interprogram-paste
>                  (if (listp interprogram-paste)

Fine by me, but please add a comment there explaining why we do that
on X.

Thanks.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.