*rectangle-kill-buffer*と矩形な話

xyzzy

　2chに矩形の話が出ていて、*rectangle-kill-buffer* なるのがあるのに気づいたので、之使えば前に書いたヤツももっと楽に出来るなぁとか思ってみた。と言うか前書いた矩形のヤツ今見ると、lispに手を出し始めた時に書いただけ在って、酷いコードで目も当てられないし。書き直したら相当良くなりそうな気もする。今なら色々アイデア的にもあるし。
　ただ、矩形って使わないからやってもあんまり意味ない。個人的に。


■メモ　
基本は xyzzy/lisp/select.l 。 矩形に関しては xyzzy/lisp/rectangle.l 。 矩形コピーした内容は *rectangle-kill-buffer* に入っている。

174 名無しさん＠お腹いっぱい。 [sage] Date:2007/12/07(金) 21:04:58  ID:oOiAbzxk0 Be:
    練習問題のつもりで>>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)))))

from http://pc11.2ch.net/test/read.cgi/software/1191681847/174