Cursor at end of region pasted in

Cursor at end of region pasted in

[Lars Gustafsson]

Hi!
How do I get the cursor to place itself at the end of the region,
which has just been pasted in? Right now it places itself at the
beginning of the region, which has just been pasted in. This is my
function:

(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 "Markeringen var aktiv")
	  (transient-mark-mode 1)
	  (kill-region (region-beginning) (region-end))
	  ;(transient-mark-mode 0)
	  )
      ) 
    (insert-register ?a)
    (setq mark-active nil)
))

Thanks in advance, Lars

Re: Cursor at end of region pasted in

[Floyd Davidson]

lng2@spray.se (Lars Gustafsson) wrote:
>Hi!
>How do I get the cursor to place itself at the end of the region,
>which has just been pasted in? Right now it places itself at the
>beginning of the region, which has just been pasted in. This is my
>function:
>
>(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 "Markeringen var aktiv")
>         (transient-mark-mode 1)
>         (kill-region (region-beginning) (region-end))
>         ;(transient-mark-mode 0)
>         )
>      )
>    (insert-register ?a)
>    (setq mark-active nil)
>))

(global-set-key [(control v)]   'paste-and-show)         ; PASTE-KEY.

(defun paste-and-show () (interactive) "Paste from register a"
  (message "Region from register a pasted in")
    (when mark-active
      (progn
        (message "Markeringen var aktiv")
        (transient-mark-mode 1)
        (kill-region (region-beginning) (region-end))))
  (goto-char (1+ (point)))
  (save-excursion
    (goto-char (1- (point)))
    (insert-register ?a))
  (goto-char (1- (point)))
  (setq mark-active nil))

>Thanks in advance, Lars

--
Floyd L. Davidson           <http://web.newsguy.com/floyd_davidson>
Ukpeagvik (Barrow, Alaska)                         floyd@barrow.com

Re: Cursor at end of region pasted in

[Stefan Monnier]

>   (goto-char (1+ (point)))

Aka (forward-char -1)


        Stefan

Re: Cursor at end of region pasted in

[David Kastrup]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> >   (goto-char (1+ (point)))
> 
> Aka (forward-char -1)

That would surprise me.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: Cursor at end of region pasted in

[Stefan Monnier]

>> >   (goto-char (1+ (point)))
>> Aka (forward-char -1)
> That would surprise me.

Ahh... nitpicker!


        Stefan

Re: Cursor at end of region pasted in

[Simon Josefsson]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>>> >   (goto-char (1+ (point)))
>>> Aka (forward-char -1)
>> That would surprise me.
>
> Ahh... nitpicker!

forward-char also signals errors on out of range inputs, which
goto-char doesn't.  Hence workarounds like this:

(defsubst imap-forward ()
  (or (eobp) (forward-char)))

Re: Cursor at end of region pasted in

[Alan Mackenzie]

In gnu.emacs.help Stefan Monnier <monnier@iro.umontreal.ca> wrote:
>>> >   (goto-char (1+ (point)))
>>> Aka (forward-char -1)
>> That would surprise me.

> Ahh... nitpicker!

Rather a nitpicker than picknickers.  :-)

>         Stefan

-- 
Alan Mackenzie (Munich, Germany)
Email: aacm@muuc.dee; to decode, wherever there is a repeated letter
(like "aa"), remove half of them (leaving, say, "a").

Re: Cursor at end of region pasted in

[Johan Bockgård]

lng2@spray.se (Lars Gustafsson) writes:

> How do I get the cursor to place itself at the end of the region,
> which has just been pasted in?

(insert-register ?a t)

-- 
Johan Bockgård