Re: How to make most functions don't modify X CLIPBOARD?

[Emanuel Berg]

doltes wrote:

> Thanks to the information provided by Emanuel Berg

Heh, my pleasure...

> I was able to accomplish what I'm requestion by doing.
> If any of you have some feedback, I would appreciate it.
>
> (setq select-enable-clipboard nil)
>
> (defun my/kill-ring-save ()
>   (interactive)
>   (let ((select-enable-clipboard t))
>     (call-interactively 'kill-ring-save)))
>
> (global-set-key (kbd "M-w") 'my/kill-ring-save)

I don't know if it makes sense trying to set up an identical
interface so it can (hopefully) be used transparently?

Perhaps something like this

(setq select-enable-clipboard nil)

(defun kill-ring-save-x (beg end &optional region)
  (interactive (list (mark) (point)
                     (prefix-numeric-value current-prefix-arg) ))
  (let ((select-enable-clipboard t))
    (if (called-interactively-p 'interactive)
        (call-interactively #'kill-ring-save)
      (kill-ring-save beg end region) )))

(global-set-key "\M-w" #'kill-ring-save-x)

?

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal