Oops, that'll teach me to edit elisp without aggressive-indent-mode.  :) 
This should work:

(advice-add 'tabbar-buffer-tab-label :before-until
              (lambda (tab)
                (with-current-buffer (buffer-name (tabbar-tab-value tab))
                  (when (equal major-mode 'org-agenda-mode)
                    "Agenda"))))






Reply via email to