diff options
| -rw-r--r-- | lisp/term/tty-colors.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/term/tty-colors.el b/lisp/term/tty-colors.el index 03fef2a3421..1fe98192540 100644 --- a/lisp/term/tty-colors.el +++ b/lisp/term/tty-colors.el | |||
| @@ -971,7 +971,8 @@ A color is considered gray if the 3 components of its RGB value are equal." | |||
| 971 | r (car desc) | 971 | r (car desc) |
| 972 | g (cadr desc) | 972 | g (cadr desc) |
| 973 | b (car (cddr desc))) | 973 | b (car (cddr desc))) |
| 974 | (and (eq r g) (eq g b) | 974 | (and (numberp r) |
| 975 | (eq r g) (eq g b) | ||
| 975 | (setq count (1+ count))) | 976 | (setq count (1+ count))) |
| 976 | (setq colors (cdr colors))) | 977 | (setq colors (cdr colors))) |
| 977 | count)) | 978 | count)) |