          ;; comint
          (comint-highlight-prompt ((t (:foreground ,blue))))
          ;; compilation
-         (compilation-info ((t (:foreground ,green :bold t))))
-         (compilation-warning ((t (:foreground ,orange :bold t))))
+         (compilation-info ((t (:foreground ,green :weight ,bold))))
+         (compilation-warning ((t (:foreground ,orange :weight ,bold))))
          ;; customize
          (custom-button
           ((t (:background ,base02

         (whitespace-indentation ((t (:foreground ,base02))))
         (whitespace-space ((t (:foreground ,base02))))
         (whitespace-space-after-tab ((t (:foreground ,cyan))))
         (whitespace-space-before-tab ((t (:foreground ,red :bold t))))
         (whitespace-tab ((t (:foreground ,base02))))
         (whitespace-trailing
          ((t (:background ,base02 :foreground ,red :bold t))))
         (whitespace-highlight-face ((t (:background ,blue :foreground ,red))))
         ;; Message
         (message-mml ((t (:foreground ,blue))))

  (interactive "Slight or dark? ")
  (flet ((find-color (name)
           (let ((index (if (or (<= (display-color-cells) 256)
                                solarized-degrade)
                            2
                          1)))
             (nth index (assoc name solarized-colors)))))
    (let ((base03    (find-color 'base03))
          (base02    (find-color 'base02))
          (base01    (find-color 'base01))
          (base00    (find-color 'base00))
          (base0     (find-color 'base0))
          (base1     (find-color 'base1))
          (base2     (find-color 'base2))
          (base3     (find-color 'base3))
          (yellow    (find-color 'yellow))
          (orange    (find-color 'orange))
          (red       (find-color 'red))
          (magenta   (find-color 'magenta))
          (violet    (find-color 'violet))
          (blue      (find-color 'blue))
          (cyan      (find-color 'cyan))
          (green     (find-color 'green))
          (bold      (if solarized-bold 'bold 'normal))
          (underline (if solarized-underline t nil))
          (italic    (if solarized-italic 'italic 'normal)))
      (when (eq 'light mode)
        (rotatef base03 base3)
        (rotatef base02 base2)
