Source of Nothingness - xyzzy lisp : outline-treeの表示順にnext-bufferとか

* xyzzy lisp : outline-treeの表示順にnext-bufferとか

(in-package "outline-tree2")
(global-set-key #\C-PageUp #'(lambda ()
                               (interactive)
                               (outline-tree-previous-buffer)
                               (outline-tree-select-node-by-buffer (selected-buffer))))
(global-set-key #\C-PageDown #'(lambda ()
                                 (interactive)
                                 (outline-tree-next-buffer)
                                 (outline-tree-select-node-by-buffer (selected-buffer))))

outline-treeをバッファバーの代わりにしているから、その見た目どおりに移動したい、
ということで、マウスに触る機会を減らすために。
outline-treeは規模が大きいからなかなか読めない(^^;

update : 2006-02-15 (Wed) 21:01:01