- 758 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/05/26(月) 17:33:12 ID:+wecsvlm0]
- つ
(defun my-rename-buffer ()
(setq str (get-buffer-file-name (selected-buffer)))
(when (string-matchp ".*/\\(.+\\)/index" str)
(setq str (string-replace-match str "\\1"))
(rename-buffer str)))
(add-hook 'ed::*html+-mode-hook* 'my-rename-buffer)
