el/dot-emacs.el: Use more sensible fonts for SLIME REPL output.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 1a48d0851cc7e97ab1dca34a2bb0896158a0d1e7..7bcaee2e9b2f2fd1310e88bf3479d190411c0843 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -5255,6 +5255,15 @@ (let ((stuff '((cmucl ("cmucl"))
                (cons head slime-lisp-implementations))))))
 (setq slime-default-lisp 'sbcl)
 
+(mdw-define-face slime-repl-input-face
+  (t))
+(mdw-define-face slime-repl-output-face
+  (t :inherit font-lock-comment-face))
+(mdw-define-face slime-repl-inputed-output-face
+  (t :inherit link))
+(mdw-define-face slime-repl-output-mouseover-face
+  (t :inherit highlight))
+
 ;; Hooks.
 
 (progn