Selected region not visible

[Johan Andersson]

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!