[Emacs-diffs] master 888d644: * net/shr.el (shr-colorize-region):

[Katsumi Yamaoka]

branch: master
commit 888d644f0ba53ba4f4160dc0bdfda384936ded58
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    * net/shr.el (shr-colorize-region):
    Don't do it on a system not supporting 256 above colors (bug#21557).
---
 lisp/net/shr.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index fb450e8..ebc8ab3 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