gistfile1.el

;; remove bolding from autodoc messages
;; workaround for http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=3285

(defface font-lock-type-face-no-bold
  '((t :inherit font-lock-type-face :weight normal))
  "Non-bolded version of font-lock-type-face"
  :group 'font-lock-faces)

(defface font-lock-keyword-face-no-bold
  '((t :inherit font-lock-keyword-face :weight normal))
  "Non-bolded version of font-lock-keyword-face"
  :group 'font-lock-faces)

(defface font-lock-function-name-face-no-bold
  '((t :inherit font-lock-function-name-face :weight normal))
  "Non-bolded version of font-lock-function-name-face"
  :group 'font-lock-faces)

(defface font-lock-variable-name-face-no-bold
  '((t :inherit font-lock-variable-name-face :weight normal))
  "Non-bolded version of font-lock-variable-name-face"
  :group 'font-lock-faces)

(defface font-lock-warning-face-no-bold
  '((t :inherit font-lock-warning-face :weight normal))
  "Non-bolded version of font-lock-warning-face"
  :group 'font-lock-faces)

(defadvice slime-fontify-string (after no-bold)
  "Remove bolding from autodoc messages"
  (lexical-let ((replacements '((font-lock-type-face . font-lock-type-face-no-bold)
                                (font-lock-keyword-face . font-lock-keyword-face-no-bold)
                                (font-lock-function-name-face . font-lock-function-name-face-no-bold)
                                (font-lock-variable-name-face . font-lock-variable-name-face-no-bold)
                                (font-lock-warning-face . font-lock-warning-face-no-bold)))
                (start 0)
                (end 0)
                (current-face (get-text-property 0 'face ad-return-value)))
    (loop until (= end (length ad-return-value))
          do
          (setq start end)
          (setq end (or (next-single-property-change start 'face ad-return-value)
                        (length ad-return-value)))
          (when-let (r (assoc current-face replacements))
            (put-text-property start end 'face (cdr r) ad-return-value))
          (when (< end (length ad-return-value))
            (setq current-face (get-text-property end 'face ad-return-value))))))

(ad-activate 'slime-fontify-string)