リージョンを括弧で囲む

(defun paren-region (s e)
  ;; リージョンを括弧で囲む
  (interactive "r")
  ;; 空のマーカーを作成し、eをマーカーにセットする
  (setq e (set-marker (make-marker) e))
  (goto-char s)
  (insert "(")
  (goto-char e)
  (insert ")"))

P120

Emacs Lispテクニックバイブル