リージョンの行頭に "> " を挿入する - わからん

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

[tomoya]

C-x rt の延長ですね。(kbd) を使っても実現できそう。