[xyzzy:05561] Re: はじめまして＆質問です

["Morikazu Tange" <tange@xxxxxxxxxxxxxxxxxxx>]

> 矩形ブロックは私の場合こんな風にしています。
> 
> (defvar old-selection-type nil)
> 
> ;通常選択
> (defun wz-select-start()
>   (interactive)
>   (if (get-selection-type)
>       (stop-selection)
>     (start-selection 2)) )
> 
> ;矩形選択
> (defun wz-boxselect-start()
>   (interactive)
>   (if (get-selection-type)
>       (stop-selection)
>     (start-selection 3)) )
> 
> ;矩形コピー
> (defun wz-copy-selection()
>   (interactive)
>   (setq old-selection-type (get-selection-type))
>   (unless old-selection-type
>     (goto-bol)
>  (selection-next-line))
>   (copy-selection) )
> 
> ;矩形（通常）ペースト
> goto-line

すみません、間違えました。
矩形（通常）ペーストの所は

(defun wz-yank-selection ()
  (interactive)
  (case old-selection-type
 (3 (if overwrite-mode
     (overwrite-rectangle)
   (yank-rectangle)))
 (t (yank-selection))))

でした。
それから「矩形コピー」は「矩形（通常）コピー」です。
失礼しました。

田家 守一