[xyzzy:03772] Re: 画面構成を記憶させたい (Re: 拡張子の一括変換 )

[Hiroshi Saito <HiroshiSaito@xxxxxxx>]

サイトウです。

コレいいですね。

改めて、須田さんのところ
http://member.nifty.ne.jp/seiya-suda/utilities.html
を見たら、いろいろあっていいですね。

それに、レジスタなんて便利なものがあったんですよね。
Meadowと格闘していたころに買った、
「Emacs&Mule Manual&Reference」秀和システム
を改めて読んで、思い出しました。(というか認識しました。)

*scratch*を介して、複数のtextを切ったり貼ったり
してたのが アホ みたいですね。


> 一個だけなら須田さんとこにあったはずですが、複数だとこ
> んな感じでしょうか。C-x r w <任意の一文字> で保存、C-x 
> r c <任意の一文字> で復元します。
> 
> (defun save-window-configuration-to-register (r)
>   (interactive "cSave winconf to register: ")
>   (ed::set-register r (current-window-configuration)))
> 
> (defun restore-window-configuration-register (r)
>   (interactive "cRestore winconf register: ")
>   (let ((val (ed::get-register r)))
>     (cond ((and (consp val)
>         (eq (car val) 'window-configuration))
>        (set-window-configuration val))
>       ((null val)
>        (error "レジスタ~Aが設定されていません" r))
>       (t
>        (error "レジスタにWindow-configurationが入っていません")))))
> 
> (define-key ctl-x-map '(#\r #\w) 'save-window-configuration-to-register)
> (define-key ctl-x-map '(#\r #\c) 'restore-window-configuration-register)


-----------------------------------
サイトウ ヒロシ
HiroshiSaito@xxxxxxx