[xyzzy:04300] Re: 複数行のタブの挿入

[Masahiro Hayashi <hayashi@xxxxxxxxxxxxxx>]

亀井さんどうもありがとうございます。林です。

Tetsuya Kamei <kamei@xxxxxxxxxxxx> wrote:
> shift-selection てのがあります。
　ありました。そこで早速使ってみましたが、どうもタブ１つでなく沢山
TABが入ってしまいます。
 select.lを見てみると、
　(defun shift-selection (&optional (column (tab-columns)))
となっていたので、
.xyzzyで
(add-hook 'ed::*delphi-mode-hook*
 #'(lambda ()
    (set-tab-columns 2 (selected-buffer))
    (setq ed::*tab-columns* 2)
    (define-key ed::*delphi-mode-map* #\C-I 'shift-selection)
    (define-key ed::*delphi-mode-map* #\C-U 'unshift-selection)
    (define-key ed::*delphi-mode-map* #\RET 'newline-and-indent)
 )
として、Delphiモードの時のみ、タブを２タブにしてた後に、tab-colomu
nsを２タブに設定して、shift-selectionもタブ１つずれるようになりよ
かったのですが、こうすると、他のモードでもタブが２になってしまい、
ちょっと困りました。

そこで次に、
 select.lをいじろうと思い。
(defun shift-selection (&optional (column (tab-columns (select-buffer))))
　とやって、現在のバッファーのタブでシフトする量を計算するようにし
たつもりだったのですが、毎回バッファーの選択画面が出てくるようにな
ってしまいました。

自分ではここまでが精一杯でした、最近common-lispをいじくるのがひじ
ょーに楽しくなってきたのですが、まだまだよくわかっていません。

もし良ければ、現在のローカルタブ量からshiftするようにする方法をご
教授下さい。

　また、良ければ、現在のregionに対して、shiftするようにする方法も
教えていただけるとうれしいです、ただこっちの方は自分でもう少しがん
ばってみようかなとも思っておりますので、もし良ければヒントなど ^^;

-- 
--------------------------------------------
（株）インテック  システム事業本部
　　　　　　　　データウェアシステム部
　 開発グループ　    林　雅大  (Masahiro.H)
         e-mail: hayashi@xxxxxxxxxxxxxx
　〒136-8637 東京都江東区新砂 1-3-3
　TEL (03)5665-5137　　FAX (03)5665-5186
--------------------------------------------
                             (_ _) ZZZzzz....