Re: OSX: Interprogram cut/paste issues /// "No overlay corresponding to CLIPBOARD selection"

[YAMAMOTO Mitsuharu]

>>>>> On Fri, 29 Apr 2005 08:32:19 +0100, David Reitter <address@hidden> said:

> The problems (below) go away if mouse-sel is not used, yet I cannot
> get it to not copy the region into the clipboard (killring) when
> some region is selected.

Is (setq x-select-enable-clipboard nil) what you want?  I tried to use
with this setting for a while and noticed that the patch below may be
needed.

Optionally, you may want to set

(put 'PRIMARY 'mac-scrap-name "org.gnu.Emacs.selection.PRIMARY")
(setq mac-services-selection 'PRIMARY)

to make the Services menu work when x-select-enable-clipboard is set
to nil.

                                     YAMAMOTO Mitsuharu
                                address@hidden

Index: lisp/term/mac-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/mac-win.el,v
retrieving revision 1.43
diff -c -r1.43 mac-win.el
*** lisp/term/mac-win.el        24 Apr 2005 05:59:52 -0000      1.43
--- lisp/term/mac-win.el        29 Apr 2005 07:20:29 -0000
***************
*** 1168,1174 ****
  (defun x-select-text (text &optional push)
    (x-set-selection 'PRIMARY text)
    (setq x-last-selected-text-primary text)
!   (when x-select-enable-clipboard
      (x-set-selection 'CLIPBOARD text)
      (setq x-last-selected-text-clipboard text))
    )
--- 1168,1175 ----
  (defun x-select-text (text &optional push)
    (x-set-selection 'PRIMARY text)
    (setq x-last-selected-text-primary text)
!   (if (not x-select-enable-clipboard)
!       (setq x-last-selected-text-clipboard nil)
      (x-set-selection 'CLIPBOARD text)
      (setq x-last-selected-text-clipboard text))
    )
***************
*** 1237,1243 ****
  ;;; selection won't be added to the kill ring over and over.
  (defun x-get-selection-value ()
    (let (clip-text primary-text)
!     (when x-select-enable-clipboard
        (setq clip-text (x-selection-value 'CLIPBOARD))
        (if (string= clip-text "") (setq clip-text nil))
  
--- 1238,1245 ----
  ;;; selection won't be added to the kill ring over and over.
  (defun x-get-selection-value ()
    (let (clip-text primary-text)
!     (if (not x-select-enable-clipboard)
!       (setq x-last-selected-text-clipboard nil)
        (setq clip-text (x-selection-value 'CLIPBOARD))
        (if (string= clip-text "") (setq clip-text nil))