Trouble with cursor palcement when using registers.

Trouble with cursor palcement when using registers.

[Lars Gustafsson]

I used registers to construct a paste-function. The problem is that
the cursor is always positioned before the text, which I just pasted
in. When you use the yank-function the cursor is always placed after
the text, which was just pasted in. How do I get the cursor after the
text, which was just pasted in automatically. Here is how the
paste-function is implemented:

(global-unset-key [(control v)])
(global-set-key [(control v)]   'paste-and-show)         ; PASTE-KEY.
(defun paste-and-show () (interactive) "Paste from register a"
   (progn
    (message "Region from register a pasted in")
    (if (eq mark-active (not nil)) ; if-part
	(progn                     ; then-part
	  (message "The mark was active")
	  (transient-mark-mode 1)
	  (kill-region (region-beginning) (region-end))
	  (transient-mark-mode 0)
	  )
      ) 
    (insert-register ?a)
    (setq mark-active nil)
))

Re: Trouble with cursor palcement when using registers.

[Kevin Rodgers]

Lars Gustafsson wrote:

> I used registers to construct a paste-function. The problem is that
> the cursor is always positioned before the text, which I just pasted
> in. When you use the yank-function the cursor is always placed after
> the text, which was just pasted in. How do I get the cursor after the
> text, which was just pasted in automatically. Here is how the
> paste-function is implemented:
> 
> (global-unset-key [(control v)])
> (global-set-key [(control v)]   'paste-and-show)         ; PASTE-KEY.
> (defun paste-and-show () (interactive) "Paste from register a"
>    (progn
>     (message "Region from register a pasted in")
>     (if (eq mark-active (not nil)) ; if-part
> 	(progn                     ; then-part
> 	  (message "The mark was active")
> 	  (transient-mark-mode 1)
> 	  (kill-region (region-beginning) (region-end))
> 	  (transient-mark-mode 0)
> 	  )
>       ) 
>     (insert-register ?a)
>     (setq mark-active nil)


C-h f insert-register


(insert-register ?a t)

-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>