Merge branch 'master' of https://github.com/johanvts/emacs-fireplace

Author: johanvts

fireplace.el

@@ -74,12 +74,12 @@
 	 (hot-core (/ actual-width 2)))
     (delete-char actual-width)
     (insert (propertize (make-string actual-width fireplace-fill-char)
-			'face `(:background ,"dark orange")))
+			'face `(:background ,"orange red")))
     (when (> hot-core 1)
       (fireplace--gotoxy (+ x (/ hot-core 2)) y)
       (delete-char hot-core)
       (insert (propertize (make-string hot-core fireplace-fill-char)
-				      'face `(:background ,"orange red"))))))
+				      'face `(:background ,"dark orange"))))))
 
 (defun fireplace--smoke (x height)
   (fireplace--gotoxy (if (>(random 3) 1)