Movable position registers?

Movable position registers?

[Nikolay Kudryavtsev]

 From time to time I have this question, but always forget to ask.

Is there a way to put the position of comint input into a register, so 
whenever its position changes, the register moves with it? So I can use 
registers for irc buffers, sql buffers and shell buffers without the 
need for an extra end-of-buffer command.

-- 
Best Regards,
Nikolay Kudryavtsev

Re: Movable position registers?

[John Mastro]

Nikolay Kudryavtsev <nikolay.kudryavtsev@gmail.com> wrote:
> From time to time I have this question, but always forget to ask.
>
> Is there a way to put the position of comint input into a register, so
> whenever its position changes, the register moves with it? So I can use
> registers for irc buffers, sql buffers and shell buffers without the need
> for an extra end-of-buffer command.

If I understand correctly, I think perhaps you just need to use
`set-marker-insertion-type' so that the marker moves when text is
inserted at its position.

Here's an example of a modified/simplified version of
`point-to-register' that does so:

(defun my-point-to-register-with-insertion-type-t (register)
  (interactive
   (list (register-read-with-preview "Point to register: ")))
  (add-hook 'kill-buffer-hook 'register-swap-out nil t)
  (let ((marker (copy-marker (point))))
    (set-marker-insertion-type marker t)
    (set-register register marker)))

Hope that helps

        John