🚀 go-pugleaf

John Cooper (jsc@saxon.Eng.Sun.COM) wrote:

> Also, when I do a paste, is it possible to arrange for the paste to
> occur at point, instead of at the position where I press button 2 ?

I have done a cheap hack for that::

    ;;;
    (defun paste-cut-buffer-before-point (arg)
      "Retrieve text from appropriate selection, or X cut-buffer if none,
    and paste it just before \(point\)"
      (let ( (buff (nth 1 arg)) )
	(when (and buff (bufferp buff))
    ;;    (save-excursion
	    (set-buffer buff)
	    (undo-boundary)
	    ;;;; (goto-char (min (car arg) (point-max)))
	    ; get text from selection PRIMARY
	    ; insert text once it's there.
	    (let
	      (
		(text
		  (epoch::convert-selection mouse::selection-atom
		    "STRING" "PROPERTY"))
	      )
	      ; Make sure string isn't ""
	      (if (and (stringp text) (> (length text) 0))
		(insert text)	; selection is owned and has a value
		(insert (get-cut-buffer))	; grab cut-buffer instead
	      )
	    )
    ;;    )
    )))

    (global-set-mouse mouse-middle mouse-down 'paste-cut-buffer-before-point)

--
Shankar Unni				E-Mail:	shankar@sgi.com
Silicon Graphics Inc.			Phone:	+1-415-390-2072