如何從 elisp 腳本中獲得瞬時突出顯示？

我想要一個 elisp 腳本來突出顯示文本區域。

退出時，按下某個鍵時突出顯示的選擇應消失。

我嘗試過的所有操作都會導致突出顯示就像按下shift鍵一樣。使選擇瞬態需要什麼？

(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)

這在 Emacs 24 中對我有用：

(setq transient-mark-mode t)

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

引用自：https://unix.stackexchange.com/questions/25083