diff options
| author | Katsumi Yamaoka | 2015-09-29 06:30:48 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2015-09-29 06:30:48 +0000 |
| commit | 8b95ee49bc1d632a34230b367be53a97060ebe7e (patch) | |
| tree | fe5d5801274b152f246664cc752344556d9ffba0 | |
| parent | 888d644f0ba53ba4f4160dc0bdfda384936ded58 (diff) | |
| download | emacs-8b95ee49bc1d632a34230b367be53a97060ebe7e.tar.gz emacs-8b95ee49bc1d632a34230b367be53a97060ebe7e.zip | |
* net/shr.el (shr-colorize-region): Allow 88-color tty to use colors.
Suggested by Eli Zaretskii.
| -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 ebc8ab3327f..60203f581ec 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 (and (or fg bg) (>= (display-color-cells) 256)) | 1045 | (when (and (or fg bg) (>= (display-color-cells) 88)) |
| 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 |