[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master b039229: * xclip/xclip.el: Fix bug#33399

From: Stefan Monnier
Subject: [elpa] master b039229: * xclip/xclip.el: Fix bug#33399
Date: Sun, 18 Nov 2018 21:00:22 -0500 (EST)

branch: master
commit b03922935f6fe8fdc0d0a272e4844fdf57bb5321
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * xclip/xclip.el: Fix bug#33399
    (xclip-set-selection): Don't use start-file-process.
 packages/xclip/xclip.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/packages/xclip/xclip.el b/packages/xclip/xclip.el
index 2b8f97c..f100e47 100644
--- a/packages/xclip/xclip.el
+++ b/packages/xclip/xclip.el
@@ -5,7 +5,7 @@
 ;; Author: Leo Liu <address@hidden>
 ;; Keywords: convenience, tools
 ;; Created: 2007-12-30
-;; Version: 1.4
+;; Version: 1.5
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -86,26 +86,26 @@ See also `x-set-selection'."
           (pcase xclip-method
              (when (memq type '(clipboard CLIPBOARD))
-               (start-file-process
+               (start-process
                 "pbcopy" nil
                 (replace-regexp-in-string "\\(.*\\)pbpaste" "\\1pbcopy"
                                           xclip-program 'fixedcase))))
              (when (memq type '(clipboard CLIPBOARD))
-               (start-file-process
+               (start-process
                 "putclip" nil
                 (replace-regexp-in-string "\\(.*\\)getclip" "\\1putclip"
                                           xclip-program 'fixedcase))))
              (when (getenv "DISPLAY")
-               (start-file-process "xclip" nil xclip-program
-                                   "-selection" (symbol-name type))))
+               (start-process "xclip" nil xclip-program
+                              "-selection" (symbol-name type))))
              (when (and (getenv "DISPLAY")
                         (memq type '(clipboard CLIPBOARD
                                      primary PRIMARY
                                      secondary SECONDARY)))
-               (start-file-process
+               (start-process
                 "xsel" nil xclip-program
                 "-i" (concat "--" (downcase (symbol-name type))))))
             (method (error "Unknown `xclip-method': %S" method)))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]