diff options
| author | Eli Zaretskii | 2000-02-02 11:34:25 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2000-02-02 11:34:25 +0000 |
| commit | 26b09289edeee16d2f20450bdf77dfa111ba9183 (patch) | |
| tree | 02db679d5ed33b1dc4741b6e80cdb1beddf44b32 | |
| parent | c527e60052301753343e2d3d697c2675ab8df5d2 (diff) | |
| download | emacs-26b09289edeee16d2f20450bdf77dfa111ba9183.tar.gz emacs-26b09289edeee16d2f20450bdf77dfa111ba9183.zip | |
Don't count colors without RGB values as gray shades.
| -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)) |