emacs, Làm thế nào để sao chép vùng và để nó được tô sáng?

Tôi đủ hạnh phúc với Mw mặc định khi (kill-ring-save)mất phần tô sáng của vùng khi chạy lệnh. Tôi không muốn thay đổi hành vi của nó, nhưng tôi muốn liên kết <C-insert>lại để thực hiện một hành động tương tự và duy trì sự nổi bật của khu vực.

Tôi đã thử (un) cài đặt transient-mark-modetrực tiếp và thông qua một chức năng, nhưng khu vực vẫn mất điểm nhấn.

Chỉ chạy (kill-ring-save (region-beginning) (region-end))trong một chức năng tương tác hoạt động như mong đợi, tức là. nó làm mất đi sự nổi bật

Chỉ chạy (exchange-point-and-mark) (exchange-point-and-mark)trong một chức năng tương tác hoạt động như mong đợi, tức là. nó làm nổi bật lại khu vực và đặt / lá điểm vào vị trí ban đầu / chính xác của nó.

Tuy nhiên, khi tôi đặt tất cả chúng lại với nhau trong một hàm, nó không làm nổi bật lại vùng đó. Đây là chức năng không ràng buộc và ràng buộc:

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

Sử dụng: GNU Emacs 23.1.1 trong Ubuntu 10.04.3

Chạy kill-ring-savekhông hủy kích hoạt nhãn hiệu trực tiếp mà chỉ đặt biến deactivate-markthành tđể hủy kích hoạt được thực hiện sau đó . Để ngăn chặn điều này, hãy đặt lại deactivate-markvề nil trước khi hủy kích hoạt.

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

Vùng được tô sáng vì nhãn hiệu là "hoạt động" - vì vậy kích hoạt rõ ràng nhãn hiệu đó là mẹo. Lưu ý: Tôi không chắc chắn tại sao việc trao đổi điểm / nhãn hiệu không hoạt động. Đây là một chức năng được cập nhật, tôi cũng cập nhật nó để sử dụng tương tác để điền vào các đối số.

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