マークがアクティブか否かで関数の動作を切り替え - とりあえず暇だったし何となくはじめたブログ

このエントリで plus さんに作ってもらった関数を雛形に作ってみた. (といっても, 中のコードをちょっと置き換えただけだけどね.) 別に慣れてしまったから問題は無いんだけど, 矩形処理の入力をマークがアクティブかどうかで切り替えれるようなの作ってみた. あんまりテストしてないから何とも言えないけど, たぶん大丈夫. (defun my-string-rectangle-or-transpose-chars (&optional arg) (interactive "*P") (if mark-active (progn (string-rectangle (region-beginning) (region-end) (read-from-minibuffer "String rectangle: ")) (setq mark-active nil)) (transpose-chars