自定义 tabbar-buffer-groups-function 无效

Question

我想设置这样的标签方案：

• “irc”标签组中所有与 IRC 相关的缓冲区
• 所有 dired 缓冲区和 Emacs 内部缓冲区，如“emacs”中的*scratch*/*messages*
• “用户”中的所有其他缓冲区

我已经配置了我的.emacs为此，但我的自定义 tabbar-buffer-groups 函数没有效果。标签组的行为就像默认行为一样，就像我没有编写此函数一样。我做错了什么？

Answer 1

啊，(setq ... (lambda ...应该是(defun tabbar-buffer-groups () ...

Answer 2

尝试这个：

(defun tabbar-buffer-groups-common ()
  "Returns the list of group names the current buffer belongs to."
  (list
   (cond
    ((string-equal "*" (substring (buffer-name) 0 1))
     "emacs"
     )
    ((string-match "irc" (format "%s" major-mode))
     "irc"
     )
    (t
     "user")
     )))

（我从未在 emacs 中使用过 irc，所以我不确定）。