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

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

関藤さん、こんにちは。

        Wed, 29 Dec 1999 21:38:33 +0900 の
        [xyzzy:03770] Re: 画面構成を記憶させたい (Re:  拡張子の一括変換 )
        への返事です.

| 　２画面分割で何か編集していて、何か別の用事で、全く別のテキストファ
| イルを読む必要があった場合、それまでの画面構成を崩さないといけないと
| 思うのですが、その用事が終わったらまたもとの画面構成に戻したいのです。
| さらに欲を言えば、その画面構成を複数覚えさせたい。

一個だけなら須田さんとこにあったはずですが、複数だとこ
んな感じでしょうか。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)

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx