FW: yank-secondary

FW: yank-secondary

[Drew Adams]

Resending. Questions:
 
1) Any interest? 
2) Do you yank the secondary selection (without the mouse)? If so, how?

-------------
Sent: Wednesday, January 30, 2008 1:41 PM
Any interest in adding something like this? I've used it for years. Hard to
believe it isn't already in Emacs (or is it?). (What do those of you who are
sans souris use?)

(defun yank-secondary ()
  "Insert the secondary selection at point.
Moves point to the end of the inserted text.  Does not change mark."
  (interactive)
  (let ((secondary (x-get-selection 'SECONDARY)))
    (unless secondary (error "No secondary selection"))
    (insert secondary)))

I bind it to `C-M-y', so I can access two different selections from the
keyboard.

(FWIW, I also bind the meta mouse stuff to `C-M-', so mouse-yank-secondary
and yank-secondary use the same modifiers. I've done that since I had an SGI
workstation that wouldn't pass ALT-mouse stuff to Emacs. So, e.g., I have
`C-M-y' = yank-secondary, `C-M-mouse2' = mouse-yank-secondary, `C-M-mouse-1'
= mouse-start-secondary, `C-M-mouse-3' = mouse-secondary-save-then-kill,
`C-M-drag-mouse-1' = mouse-set-secondary, and `C-M-down-mouse-1' =
mouse-drag-secondary.)

Re: FW: yank-secondary

[David De La Harpe Golden]

On 10/02/2008, Drew Adams <drew.adams@oracle.com> wrote:
> Resending. Questions:
>
> 1) Any interest?

For symmetry... maybe.

> 2) Do you yank the secondary selection (without the mouse)? If so, how?
>

I do very occasionally use secondary, but have always inserted it with
the mouse to date.  That maybe simply be because it's only easy to
/set/ it with the mouse in the first place, so if I'm using secondary,
I'm already mousing.

Re: FW: yank-secondary

[Ehud Karni]

On Sun, 10 Feb 2008 10:57:30 -0800, Drew Adams wrote:
>
> Resending. Questions:
>
> 1) Any interest?
> 2) Do you yank the secondary selection (without the mouse)? If so, how?

I do use various selections so I wrote the all purpose `insert-selection'.


(defun insert-select (&optional TYPE)
  "Insert text from 'PRIMARY (x-get-selection) or CUT-BUFFER (x-get-cut-buffer)
clipboard (mouse selected). The 'CUT-BUFFER is used for Xvnc

Optional arg TYPE can specify the selection:
  1-PRIMARY,  2-SECONDARY, 3-CLIPBOARD,
  10-17 - cut buffer 0-7"
       (interactive "P")
       (or TYPE (setq TYPE 0))
       (insert (or (cond
           ((= TYPE 1)
                       (x-get-selection 'PRIMARY 'STRING))
           ((= TYPE 2)
                       (x-get-selection 'SECONDARY 'STRING))
           ((= TYPE 3)
                       (x-get-selection 'CLIPBOARD 'STRING))
           ((and (> TYPE 9) (< TYPE 18))
                       (x-get-cut-buffer (- TYPE 10)))
       ;; default action (no/wrong TYPE)
           (t
                           (if (eq window-system 'w32)
                               (x-get-selection-value)
                           ;else
                               (if (getenv "VNCDESKTOP")
                                   (x-get-cut-buffer)
                                   (x-get-selection))))
           ) "")))


Remarks: Check before use !
Test it on w32 too - I did not use NTEmacs for at least 3 years.

The "VNCDESKTOP" test is used for Emacs used through VNC on UNIX.

Even when used through VNC you may want the other options.
e.g. If you marked text on Mozilla/Firefox you will need the
'CLIPBOARD (type=3), not the cut-buffer (used with xterm/rxvt).

Ehud.


--
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 GnuPG: 98EA398D <http://www.keyserver.net/>    Better Safe Than Sorry

FW: yank-secondary

[Drew Adams]

Resending. Questions:
 
1) Any interest? 
2) Do you yank the secondary selection (without the mouse)? If so, how?

-------------
Sent: Wednesday, January 30, 2008 1:41 PM
Any interest in adding something like this? I've used it for years. Hard to
believe it isn't already in Emacs (or is it?). (What do those of you who are
sans souris use?)

(defun yank-secondary ()
  "Insert the secondary selection at point.
Moves point to the end of the inserted text.  Does not change mark."
  (interactive)
  (let ((secondary (x-get-selection 'SECONDARY)))
    (unless secondary (error "No secondary selection"))
    (insert secondary)))

I bind it to `C-M-y', so I can access two different selections from the
keyboard.

(FWIW, I also bind the meta mouse stuff to `C-M-', so mouse-yank-secondary
and yank-secondary use the same modifiers. I've done that since I had an SGI
workstation that wouldn't pass ALT-mouse stuff to Emacs. So, e.g., I have
`C-M-y' = yank-secondary, `C-M-mouse2' = mouse-yank-secondary, `C-M-mouse-1'
= mouse-start-secondary, `C-M-mouse-3' = mouse-secondary-save-then-kill,
`C-M-drag-mouse-1' = mouse-set-secondary, and `C-M-down-mouse-1' =
mouse-drag-secondary.)