Emacs(Elisp): Preserve region when kill. 他のエディタだと選択範囲を作った後コピーしても選択範囲が解除されないが、Emacsは解除されちゃう。1年以上使っていてもどうしてもこれには慣れることができなかったので、選択範囲をキープするように変更。

preserve-region-when-kill.el

;;; ------------------------------------------------------------
;;; やっぱりキル時にリージョンを残したい……。
;; gist-description: Emacs(Elisp): Preserve region when kill. 他のエディタだと選択範囲を作った後コピーしても選択範囲が解除されないが、Emacsは解除されちゃう。1年以上使っていてもどうしてもこれには慣れることができなかったので、選択範囲をキープするように変更。
;; gist-id:
;; gist-name: preserve-region-when-kill.el
;; gist-private: nil
(defun f--around--cua-copy-region (cua-copy-region arg)
  "Keep Region at kill.  CUA-COPY-REGION, ARG."
  (let ((beg (region-beginning))
        (end (region-end)))
    (funcall cua-copy-region arg)
    (goto-char beg)
    (message "%s" beg)
    (set-mark (point))
    (goto-char end)
    (setq deactivate-mark nil)))
(advice-add 'cua-copy-region :around 'f--around--cua-copy-region)