Selected region not visible

Selected region not visible

[Johan Andersson]

[-- Attachment #1: Type: text/plain, Size: 447 bytes --]

Hey,

I'm trying to select a region using set-mark and goto-char. It works, except
that I do not see the region. This simple test function for example will
select the region, but not highlight it.

(defun test ()
  (interactive)
  (let ((region (buffer-substring-no-properties (point) (mark))))
    (delete-region (point) (mark))
    (forward-char 1)
    (insert region)
    (set-mark 2)
    (goto-char 20)))

Any idea why that might be?

Thanks!

[-- Attachment #2: Type: text/html, Size: 849 bytes --]

Re: Selected region not visible

[Lennart Borgman]

On Sat, Mar 13, 2010 at 9:06 PM, Johan Andersson <johan.rejeep@gmail.com> wrote:
> (defun test ()
>   (interactive)
>   (let ((region (buffer-substring-no-properties (point) (mark))))
>     (delete-region (point) (mark))
>     (forward-char 1)
>     (insert region)
>     (set-mark 2)
>     (goto-char 20)))

You need to add

  (setq deactivate-mark nil)

Re: Selected region not visible

[Johan Andersson]

[-- Attachment #1: Type: text/plain, Size: 511 bytes --]

Ohh... didn't know of that. Thanks Lennart!

On Sat, Mar 13, 2010 at 8:15 PM, Lennart Borgman
<lennart.borgman@gmail.com>wrote:

> On Sat, Mar 13, 2010 at 9:06 PM, Johan Andersson <johan.rejeep@gmail.com>
> wrote:
> > (defun test ()
> >   (interactive)
> >   (let ((region (buffer-substring-no-properties (point) (mark))))
> >     (delete-region (point) (mark))
> >     (forward-char 1)
> >     (insert region)
> >     (set-mark 2)
> >     (goto-char 20)))
>
> You need to add
>
>  (setq deactivate-mark nil)
>

[-- Attachment #2: Type: text/html, Size: 891 bytes --]