Elpa Package: xclip

Elpa Package: xclip

[nolan]

[-- Attachment #1: Type: text/plain, Size: 1157 bytes --]

Hello, by default the wl-paste programs adds a newline character to 
text in the clipboard. The below patch disables this behavior in xclip 
mode.

 From 5a707bdaa3edb17289f0b9dda94770bc0fc5eb28 Mon Sep 17 00:00:00 2001
 From: Nolan Wright <nolan@nolanwright.dev>
Date: Wed, 9 Oct 2019 18:12:06 -0400
Subject: [PATCH] Tell wl-paste not to add a newline

---
 packages/xclip/xclip.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/xclip/xclip.el b/packages/xclip/xclip.el
index 1713bf740..9fe566756 100644
--- a/packages/xclip/xclip.el
+++ b/packages/xclip/xclip.el
@@ -185,7 +185,7 @@ See also `x-set-selection'."
                   (replace-regexp-in-string "\\(.*\\)copy" "\\1paste"
                                             xclip-program 'fixedcase)
                   nil standard-output nil
- (if (memq type '(primary PRIMARY)) '("-p")))))
+ (cons "-n" (when (memq type '(primary PRIMARY)) '("-p"))))))
         (`termux-clipboard-get
          (when (memq type '(clipboard CLIPBOARD))
            (call-process xclip-program nil standard-output nil)))
-- 
2.23.0





Sent via Migadu.com, world's easiest email hosting

[-- Attachment #2: Type: text/html, Size: 2082 bytes --]

Re: Elpa Package: xclip

[Stefan Monnier]

> Hello, by default the wl-paste programs adds a newline character to text in
> the clipboard.  The below patch disables this behavior in xclip mode.

Indeed, thank you.  Glad to see this code is in use (and apparently
working).  I installed it into elpa.git.


        Stefan


> From 5a707bdaa3edb17289f0b9dda94770bc0fc5eb28 Mon Sep 17 00:00:00 2001
> From: Nolan Wright <nolan@nolanwright.dev>
> Date: Wed, 9 Oct 2019 18:12:06 -0400
> Subject: [PATCH] Tell wl-paste not to add a newline
>
> ---
> packages/xclip/xclip.el | 2 +-
> 1 file changed, 1 insertion(+), 1 deletion(-)
>
> diff --git a/packages/xclip/xclip.el b/packages/xclip/xclip.el
> index 1713bf740..9fe566756 100644
> --- a/packages/xclip/xclip.el
> +++ b/packages/xclip/xclip.el
> @@ -185,7 +185,7 @@ See also `x-set-selection'."
>                   (replace-regexp-in-string "\\(.*\\)copy" "\\1paste"
>                                             xclip-program 'fixedcase)
>                   nil standard-output nil
> - (if (memq type '(primary PRIMARY)) '("-p")))))
> + (cons "-n" (when (memq type '(primary PRIMARY)) '("-p"))))))
>         (`termux-clipboard-get
>          (when (memq type '(clipboard CLIPBOARD))
>            (call-process xclip-program nil standard-output nil)))