From ce102cb1e3feeb1e490c732e4aa49401f9647f70 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sat, 9 Apr 2005 15:25:50 +0000 Subject: [PATCH] (xterm-rgb-convert-to-16bit): Simplify. (xterm-register-default-colors): Update color values computation to match xterm-200. --- lisp/ChangeLog | 6 ++++++ lisp/term/xterm.el | 11 ++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d569e9a0163..5f6731885d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-04-09 Dan Nicolaescu + + * term/xterm.el (xterm-rgb-convert-to-16bit): Simplify. + (xterm-register-default-colors): Update color values computation + to match xterm-200. + 2005-04-09 Kenichi Handa * international/code-pages.el (iso-latin-7): Fix the map. diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 44688e82b6d..b62f6efd478 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -123,7 +123,7 @@ (defun xterm-rgb-convert-to-16bit (prim) "Convert an 8-bit primary color value PRIM to a corresponding 16-bit value." - (min 65535 (round (* (/ prim 255.0) 65535.0)))) + (logior prim (lsh prim 8))) (defun xterm-register-default-colors () "Register the default set of colors for xterm or compatible emulator. @@ -160,9 +160,10 @@ versions of xterm." (tty-color-define (format "color-%d" (- 256 ncolors)) (- 256 ncolors) (mapcar 'xterm-rgb-convert-to-16bit - (list (round (* r 42.5)) - (round (* g 42.5)) - (round (* b 42.5))))) + (list (if (zerop r) 0 (+ (* r 40) 55)) + (if (zerop g) 0 (+ (* g 40) 55)) + (if (zerop b) 0 (+ (* b 40) 55))))) + (setq b (1+ b)) (if (> b 5) (setq g (1+ g) @@ -200,7 +201,7 @@ versions of xterm." ;; Now the 8 gray colors (while (> ncolors 0) (setq color (xterm-rgb-convert-to-16bit - (round + (floor (if (= ncolors 8) 46.36363636 (+ (* (- 8 ncolors) 23.18181818) 69.54545454))))) -- 2.11.4.GIT