(defun my-insert-> (from to) (interactive "r") (save-excursion (save-restriction (narrow-to-region from to) (goto-char (point-min)) (replace-regexp "^" "> ")))) パッと上が思いついたが変換後の描画範囲が気にくわなかったので調べてみて,下のように落ち着いた。語彙たりないなー (defun my-insert-> (from to) (interactive "r") (string-rectangle from to "> "))