问一个困扰很久的问题:
我的emacs23,在ibuffer的窗口下,tabbar的tab一直显示不了。。。
大家的ibuffer和tabbar难道不冲突吗?
- qigx
- 帖子: 5
- 注册时间: 2008-01-21 21:32
-
- 帖子: 768
- 注册时间: 2006-09-20 19:56
- qigx
- 帖子: 5
- 注册时间: 2008-01-21 21:32
谢谢楼上的回答!
不过我把如下的分组加入后,还是不行呀。。。
(setq ibuffer-saved-filter-groups
(quote (("default"
("dired" (mode . dired-mode))
("ibuffer" (mode . ibuffer-mode))
("perl" (mode . cperl-mode))
("erc" (mode . erc-mode))
("planner" (or
(name . "^\\*Calendar\\*$")
(name . "^diary$")
(mode . muse-mode)))
("emacs" (or
(name . "^\\*scratch\\*$")
(name . "^\\*Messages\\*$")))
("gnus" (or
(mode . message-mode)
(mode . bbdb-mode)
(mode . mail-mode)
(mode . gnus-group-mode)
(mode . gnus-summary-mode)
(mode . gnus-article-mode)
(name . "^\\.bbdb$")
(name . "^\\.newsrc-dribble")))))))
(add-hook 'ibuffer-mode-hook
(lambda ()
(ibuffer-switch-to-saved-filter-groups "default")))
(defun tabbar-buffer-ignore-groups ()
"Return the list of group names the current buffer belongs to.
Return a list of one element based on major mode."
(list
(cond
((member (buffer-name)
'("*scratch*" "*Messages*" "*Bookmark List*" "java version"
"*JDEE bsh*" "*Backtrace*" "*Completions*"))
"Common"
)
((memq major-mode
'(dired-mode ibuffer-mode))
"List"
)
((memq major-mode
'(help-mode apropos-mode Info-mode Man-mode))
"Help"
)
((memq major-mode
'(rmail-mode
rmail-edit-mode vm-summary-mode vm-mode mail-mode
mh-letter-mode mh-show-mode mh-folder-mode
gnus-summary-mode message-mode gnus-group-mode
gnus-article-mode score-mode gnus-browse-killed-mode))
"Mail"
)
(t
(if (and (stringp mode-name)
(save-match-data (string-match "[^ ]" mode-name)))
mode-name
(symbol-name major-mode))
))))
不过我把如下的分组加入后,还是不行呀。。。
(setq ibuffer-saved-filter-groups
(quote (("default"
("dired" (mode . dired-mode))
("ibuffer" (mode . ibuffer-mode))
("perl" (mode . cperl-mode))
("erc" (mode . erc-mode))
("planner" (or
(name . "^\\*Calendar\\*$")
(name . "^diary$")
(mode . muse-mode)))
("emacs" (or
(name . "^\\*scratch\\*$")
(name . "^\\*Messages\\*$")))
("gnus" (or
(mode . message-mode)
(mode . bbdb-mode)
(mode . mail-mode)
(mode . gnus-group-mode)
(mode . gnus-summary-mode)
(mode . gnus-article-mode)
(name . "^\\.bbdb$")
(name . "^\\.newsrc-dribble")))))))
(add-hook 'ibuffer-mode-hook
(lambda ()
(ibuffer-switch-to-saved-filter-groups "default")))
(defun tabbar-buffer-ignore-groups ()
"Return the list of group names the current buffer belongs to.
Return a list of one element based on major mode."
(list
(cond
((member (buffer-name)
'("*scratch*" "*Messages*" "*Bookmark List*" "java version"
"*JDEE bsh*" "*Backtrace*" "*Completions*"))
"Common"
)
((memq major-mode
'(dired-mode ibuffer-mode))
"List"
)
((memq major-mode
'(help-mode apropos-mode Info-mode Man-mode))
"Help"
)
((memq major-mode
'(rmail-mode
rmail-edit-mode vm-summary-mode vm-mode mail-mode
mh-letter-mode mh-show-mode mh-folder-mode
gnus-summary-mode message-mode gnus-group-mode
gnus-article-mode score-mode gnus-browse-killed-mode))
"Mail"
)
(t
(if (and (stringp mode-name)
(save-match-data (string-match "[^ ]" mode-name)))
mode-name
(symbol-name major-mode))
))))