diff options
| author | Katsumi Yamaoka | 2015-09-29 02:01:50 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2015-09-29 02:01:50 +0000 |
| commit | 888d644f0ba53ba4f4160dc0bdfda384936ded58 (patch) | |
| tree | 73a18fc56d880d6c967298945b25557505562022 | |
| parent | 166a6556d0ec9926035aa2bce3dc0b0827b447ef (diff) | |
| download | emacs-888d644f0ba53ba4f4160dc0bdfda384936ded58.tar.gz emacs-888d644f0ba53ba4f4160dc0bdfda384936ded58.zip | |
* net/shr.el (shr-colorize-region):
Don't do it on a system not supporting 256 above colors (bug#21557).
| -rw-r--r-- | 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 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." | |||
| 1042 | (shr-color-visible bg fg))))))) | 1042 | (shr-color-visible bg fg))))))) |
| 1043 | 1043 | ||
| 1044 | (defun shr-colorize-region (start end fg &optional bg) | 1044 | (defun shr-colorize-region (start end fg &optional bg) |
| 1045 | (when (or fg bg) | 1045 | (when (and (or fg bg) (>= (display-color-cells) 256)) |
| 1046 | (let ((new-colors (shr-color-check fg bg))) | 1046 | (let ((new-colors (shr-color-check fg bg))) |
| 1047 | (when new-colors | 1047 | (when new-colors |
| 1048 | (when fg | 1048 | (when fg |