Como obter o realce transitório para funcionar a partir de um script elisp?

Question

Eu quero um script elisp para destacar uma região do texto.
Ao sair, a seleção destacada deve desaparecer quando uma tecla é pressionada.
Tudo que eu tentei resulta no destaque pendurado em como a tecla shift é pressionada. O que precisa para fazer a seleção transiente ?

(defun TEST ()
  (interactive)
  (transient-mark-mode t) ;; I have this true normally anyhow
  (set-mark (point))
  (forward-char 2)
  (setq mark-active t))
(global-set-key [C-S-f2] 'TEST)

    

Answer 1

Isso funciona para mim no Emacs 24:

(setq transient-mark-mode t)

(defun foo ()
  (interactive)
  (push-mark (point))
  (forward-char 2)
  (activate-mark))