From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 29 Sep 2015 02:01:50 +0000 (+0000)
Subject: * net/shr.el (shr-colorize-region):
X-Git-Tag: emacs-25.0.90~1223^2~74
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=888d644f0ba53ba4f4160dc0bdfda384936ded58;p=emacs.git

* net/shr.el (shr-colorize-region):
Don't do it on a system not supporting 256 above colors (bug#21557).
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index fb450e8a95e..ebc8ab3327f 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1042,7 +1042,7 @@ ones, in case fg and bg are nil."
                (shr-color-visible bg fg)))))))
 
 (defun shr-colorize-region (start end fg &optional bg)
-  (when (or fg bg)
+  (when (and (or fg bg) (>= (display-color-cells) 256))
     (let ((new-colors (shr-color-check fg bg)))
       (when new-colors
 	(when fg