`yank-and-mark` command?

`yank-and-mark` command?

[Raffaele Ricciardi]

I am trying to write a command that yanks and marks the yanked text --
the equivalent of C-y C-x C-x -- with Transient Mark Mode. The obvious
implementation does not work:

(defun yank-and-mark/rr (&optional $arg)
   (interactive "*P")
   (yank $arg)
   (exchange-point-and-mark))

I have tried cleverer implementations, but I will spare them for
another day ;)

Thank you.

Re: `yank-and-mark` command?

[Michael Heerdegen]

Raffaele Ricciardi <rfflrccrd@gmail.com> writes:

> implementation does not work:
>
> (defun yank-and-mark/rr (&optional $arg)
>   (interactive "*P")
>   (yank $arg)
>   (exchange-point-and-mark))

In which way does the above not work like you want?  Do you have
`transient-mark-mode' enabled in your config?


Michael.

Re: `yank-and-mark` command?

[Raffaele Ricciardi]

On 05/07/15 19:48, Michael Heerdegen wrote:
> Raffaele Ricciardi <rfflrccrd@gmail.com> writes:
>
>> implementation does not work:
>>
>> (defun yank-and-mark/rr (&optional $arg)
>>    (interactive "*P")
>>    (yank $arg)
>>    (exchange-point-and-mark))
>
> In which way does the above not work like you want?  Do you have
> `transient-mark-mode' enabled in your config?

I am trying to mimic C-y C-x C-x.  I have considered using
a keyboard macro, but I would prefer a Lisp alternative.

Transient Mark Mode is enabled by default in my Emacs.

Re: `yank-and-mark` command?

[Stefan Monnier]

> I am trying to mimic C-y C-x C-x.  I have considered using
> a keyboard macro, but I would prefer a Lisp alternative.

That doesn't say in which way your code doesn't work like you want.
But my guess is that the yank sets deactivate-mark and
exchange-point-and-mark doesn't reset it, so after running the command
the mark is deactivated by the default code that deactivates the mark
after buffer modifications.

So you'll want to add (setq deactivate-mark nil) either before or after
exchange-point-and-mark.


        Stefan

Re: `yank-and-mark` command?

[Raffaele Ricciardi]

On 05/07/15 20:35, Stefan Monnier wrote:
>> I am trying to mimic C-y C-x C-x.  I have considered using
>> a keyboard macro, but I would prefer a Lisp alternative.
>
> So you'll want to add (setq deactivate-mark nil) either before or after
> exchange-point-and-mark.

This works.  Thank you.

Re: `yank-and-mark` command?

[Stefan Monnier]

>> So you'll want to add (setq deactivate-mark nil) either before or after
>> exchange-point-and-mark.
> This works.  Thank you.

Note that the call to exchange-point-and-mark is redundant.


        Stefan

Re: `yank-and-mark` command?

[Raffaele Ricciardi]

On 06/07/15 15:50, Stefan Monnier wrote:
> Note that the call to exchange-point-and-mark is redundant.

Yet if I remove `exchange-point-and-mark', the command does not
work any longer.  Please compare the effects of the following
command:

(defun yank-and-mark/rr (&optional $arg)
   (interactive "*P")
   (yank $arg)
   (exchange-point-and-mark)
   (setq deactivate-mark nil))

with the same command, but without `exchange-point-and-mark'.

Tested in the "*scratch*" buffer, after "emacs -Q".  In
Fundamental Mode, too.

Re: `yank-and-mark` command?

[Stefan Monnier]

> Yet if I remove `exchange-point-and-mark', the command does not
> work any longer.

Oh, I thought you called it with the region activated.  If not, then
indeed you still need to explicitly activate the region (which is
better done with `activate-region' than with `exchange-point-and-mark'
when called from Lisp).


        Stefan

Re: `yank-and-mark` command?

[Nicolas Richard]

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

>> Yet if I remove `exchange-point-and-mark', the command does not
>> work any longer.
>
> Oh, I thought you called it with the region activated.  If not, then
> indeed you still need to explicitly activate the region (which is
> better done with `activate-region' than with `exchange-point-and-mark'
> when called from Lisp).

By the way, is there a reason `activate-mark' isn't interactive ?
Sometimes I want to see where the mark is, and hitting C-x C-x C-x C-x
is a bit too much...

-- 
Nico

Re: `yank-and-mark` command?

[Damien Wyart]

* Nicolas Richard <youngfrog@members.fsf.org> in gnu.emacs.help:
> Sometimes I want to see where the mark is, and hitting C-x C-x C-x C-x
> is a bit too much...

This package is quite useful for this:
https://gitlab.com/iankelling/visible-mark/blob/master/visible-mark.el

-- 
DW

Re: `yank-and-mark` command?

[Stefan Monnier]

> By the way, is there a reason `activate-mark' isn't interactive ?

No deep reason, no.


        Stefan