Bug 13251

В color-themes.el присутствует не самая правильная конструкция:

(or (fboundp 'replace-in-string)
    (defun replace-in-string (target old new)
      (replace-regexp-in-string old new  target)))

Всё бы ничего, но это определение не совсем корректно, что приводит к конфликтам
с PlannerMode, например. Надо либо заменить здесь функцию на более правильную:

(defun replace-in-string (target old new &optional literal)
  (replace-regexp-in-string old new target nil literal))

либо заменить два вызова replace-in-string в функции define-color-theme на
вызовы replace-regexp-in-string.