Alterando editores (minúsculas) para Editores (itálico) no estilo BibTeX semelhante ao apalike

Question

Estou tentando fazer com que o BibTeX esteja em conformidade com os padrões de um periódico específico (eles são bastante semelhantes ao APA). Criei um arquivo .bst personalizado usando o adorável pacote custom-bib, que funcionou muito bem, exceto por duas coisas.

Para um livro sem autores, mas com editores, meu arquivo .bst produz

Cook, E. e Kariukstis, L. (editores), 1990.Métodos de Dendrocronologia: Aplicações nas Ciências Ambientais, Editores Acadêmicos Kluwer

mas eu quero que isso produza

Cook, E. e Kariukstis, L. (Editores), 1990. Métodos de Dendrocronologia: Aplicações em Ciências Ambientais, Kluwer Academic Publishers

Observe a diferença nos (Editores) e a falta de itálico do título. Entendo que isso não pode ser reproduzido sem o arquivo .bst real, mas espero que alguém possa me indicar a direção correta. Talvez as seguintes funções sejam relevantes. A sintaxe do BST é bastante ininteligível para mim de imediato.

FUNCTION {bbl.editors}
{ "editors" }

FUNCTION {format.editors}
{editor "editor" format.names duplicate$ empty$ 'skip$
    {
      " " *
      get.bbl.editor
   "(" swap$ * ")" *
      *
    }
  if$
}

FUNCTION {format.names}
{ 'bibinfo :=
  duplicate$ empty$ 'skip$ {
  's :=
  "" 't :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    { s nameptr
      "{vv~}{ll}{, jj}{, f{.}.}"
      format.name$
      bibinfo bibinfo.check
      't :=
      nameptr #1 >
        {
          namesleft #1 >
            { ", " * t * }
            {
              s nameptr "{ll}" format.name$ duplicate$ "others" =
                { 't := }
                { pop$ }
              if$
              numnames #2 >
                { "," * }
                'skip$
              if$
              t "others" =
                {
                  " " * bbl.etal *
                }
                {
                  bbl.and
                  space.word * t *
                }
              if$
            }
          if$
        }
        't
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
  } if$
}