- 269 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/03/28(土) 15:32:34 ID:C+E0m+K+0]
- >>268
.outline/autoload にファイルを置くだけで登録されますよ。
上記の例と同じことをしてみたけど出来たよ。
> ;拡張子での切り分けはとりあえず動いてから後ほど考える。
*outline-tree-get-default-create-outline-function-advice-func* を使えば
できるよ。
(setq *outline-tree-get-default-create-outline-function-advice-func*
#'(lambda (buffer)
(let ((buffer-name (buffer-name buffer))
(buffer-mode (save-excursion (set-buffer buffer) buffer-mode))
(mode-name (save-excursion (set-buffer buffer) mode-name)))
(when (string-match "\\(.+\\)\\(<[0-9]+>\\)$" buffer-name)
(setq buffer-name (match-string 1)))
(cond
((member buffer-mode '(aaa-mode))
'outline-tree-create-outline-aaa)
((string-equal "bbb" mode-name)
'outline-tree-create-outline-bbb)
((string-matchp "\\.c)$" buffer-name)
'outline-tree-create-outline-ccc)
:
:
:
(t
'outline-tree-create-outline-blank-line)))))
|
 |
