region – ¿Cómo copiar texto sin perder la selección?

Pregunta:

Cuando copio algún texto seleccionado ( kill-ring-save con Mw ), automáticamente pierdo mi selección. Lo intenté con el modo Transient Mark sin suerte. (Nótese que no estoy usando el modo CUA).

Respuesta:

La mejor solución es utilizar Cx Cx para reactivar la marca. Pero si realmente desea conservar la selección, puede usar:

(defun copy-keep-highlight (beg end)
  (interactive "r")
  (prog1 (kill-ring-save beg end)
    (setq deactivate-mark nil)))