emacs，如何复制区域并将其突出显示？

我对默认的Mw感到满意，因为默认的Mw (kill-ring-save)在运行命令时会丢失该区域的突出显示。我不想改变它的行为，但是我想重新绑定<C-insert>以执行类似的操作并保持该地区的突出显示。

我已经尝试transient-mark-mode通过函数直接设置（取消）设置，但是该区域仍然没有突出显示。

仅(kill-ring-save (region-beginning) (region-end))在交互功能中运行才能按预期运行，即 它失去突出显示。

仅(exchange-point-and-mark) (exchange-point-and-mark)在交互功能中运行才能按预期运行，即 它会重新突出显示该区域，并在其原始/正确位置放置/离开点。

然而，当我把它们放在一起的功能，但它不能再突出的区域。这是无效的功能和绑定：

(defun kill-ring-save-keep-highlight ()
  (interactive)
  (kill-ring-save (region-beginning) (region-end))
  (exchange-point-and-mark) (exchange-point-and-mark)
)
(global-unset-key (kbd "<C-insert>"))
(global-set-key   (kbd "<C-insert>") 'kill-ring-save-keep-highlight)

使用：Ubuntu 10.04.3中的GNU Emacs 23.1.1

运行kill-ring-save并不会直接停用标记，而只是将变量设置deactivate-mark为t，以便随后进行停用。为防止这种情况，deactivate-mark请nil 在停用前重设为。

(defun kill-ring-save-keep-highlight (beg end)
  "Keep the region active after the kill"
  (interactive "r")
  (prog1 (kill-ring-save beg end)
    (setq deactivate-mark nil)))

(global-set-key (kbd "<C-insert>") 'kill-ring-save-keep-highlight)

该区域将突出显示，因为该标记是“活动的”-因此明确激活该标记就可以了。注意：我不太确定为什么交换点/标记不起作用。这是一个更新的函数，我也更新了它以使用交互方式来填充参数。

(defun kill-ring-save-keep-highlight (beg end)
  "Keep the region active after the kill"
  (interactive "r")
  (kill-ring-save beg end)
  (activate-mark))