07/12/07 21:04:58 oOiAbzxk0
練習問題のつもりで>>173のやりかたで作ってみた。
矩形使わないんでいつもちゃんと動くかは知らん。
(defun upcase-rectangle-selection (from to)
(interactive "*R")
(let (*rectangle-kill-buffer*)
(save-excursion
(when (kill-rectangle-selection)
(goto-char (min from to))
(setq *rectangle-kill-buffer*
(let (result)
(dolist (str *rectangle-kill-buffer* (nreverse result))
(push (string-upcase str) result))))
(yank-rectangle)))))