leoliu pushed a commit to branch master in repository elpa. commit dae04fe6028196bb91b216b6a321d8a31549fcb3 Author: Leo Liu <sdl....@gmail.com> Date: Sun Oct 6 11:49:15 2013 +0800
Call interprogram-cut-function in easy-kill-forward --- easy-kill.el | 12 +++++++++--- 1 files changed, 9 insertions(+), 3 deletions(-) diff --git a/easy-kill.el b/easy-kill.el index dfd1456..a4922c2 100644 --- a/easy-kill.el +++ b/easy-kill.el @@ -61,6 +61,13 @@ (buffer-substring (overlay-start easy-kill-candidate) (overlay-end easy-kill-candidate))))) +(defun easy-kill-select-text () + "Make current kill candidate available to other programs." + (let ((candidate (easy-kill-candidate))) + (and candidate + interprogram-cut-function + (funcall interprogram-cut-function candidate)))) + (defun easy-kill-map () (let ((map (make-sparse-keymap))) (define-key map "-" 'easy-kill-backward) @@ -91,6 +98,7 @@ (return)))) (when (/= end (point)) (move-overlay easy-kill-candidate start (point)) + (easy-kill-select-text) t))))) (defun easy-kill-backward (n) @@ -112,9 +120,7 @@ (overlay-put easy-kill-candidate 'thing thing) (easy-kill-forward (1- n)) t)))))) - ;; Immediately put it in clipboard for other applications. - (and interprogram-cut-function - (funcall interprogram-cut-function (or (easy-kill-candidate) ""))) + (easy-kill-select-text) t)) (defun easy-kill-select (n)