>>>>> On Fri, 29 Apr 2005 08:32:19 +0100, David Reitter <[EMAIL PROTECTED]>
>>>>> 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
[EMAIL PROTECTED]
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))
_______________________________________________
Emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
