* lisp/facemenu.el (list-colors-print): In help-echo format use %.2f

instead of %d because now HSV values are floating-point components
between 0.0 and 1.0.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bfa5c5cd24b5ebcedada8f403ddb025619d53588..4803ca0f1e1daf8670f2ac4f317cdd84aeaf6943 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-07-08  Juri Linkov  <juri@jurta.org>
+
+       * facemenu.el (list-colors-print): In help-echo format use %.2f
+       instead of %d because now HSV values are floating-point components
+       between 0.0 and 1.0.
+
 2014-07-06  Glenn Morris  <rgm@gnu.org>
 
        * emulation/cua-rect.el (cua--activate-rectangle):

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 24613ecd236d9a876b907e2adff5ab51d7aaf285..678aca24c1273d55461f868a6a9d76b0230f90a0 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -620,7 +620,7 @@ color.  The function should accept a single argument, the color name."
                 'help-echo
                 (let ((hsv (apply 'color-rgb-to-hsv
                                   (color-name-to-rgb (car color)))))
-                  (format "H:%d S:%d V:%d"
+                  (format "H:%.2f S:%.2f V:%.2f"
                           (nth 0 hsv) (nth 1 hsv) (nth 2 hsv)))))
        (when callback
          (make-text-button