color-lab.el: Add coding cookie.

[gnus] / lisp / color-lab.el

diff --git a/lisp/color-lab.el b/lisp/color-lab.el
index 997bdbf..c5a953c 100644 (file)
--- a/lisp/color-lab.el
+++ b/lisp/color-lab.el
@@ -1,4 +1,4 @@
-;;; color-lab.el --- Color manipulation laboratory routines
+;;; color-lab.el --- Color manipulation laboratory routines -*- coding: utf-8; -*-
 
 ;; Copyright (C) 2010 Free Software Foundation, Inc.
 
@@ -26,6 +26,11 @@
 
 ;;; Code:
 
+;; Emacs < 23.3
+(eval-and-compile
+  (unless (boundp 'float-pi)
+    (defconst float-pi (* 4 (atan 1)) "The value of Pi (3.1415926...).")))
+
 (defun rgb->hsv (red green blue)
   "Convert RED GREEN BLUE values to HSV representation.
 Hue is in radian. Saturation and values are between 0 and 1."
@@ -239,3 +244,5 @@ Colors must be in CIE L*a*b* format."
                  (* Rt (/ ΔC′ (* Sc kC)) (/ ΔH′ (* Sh kH)))))))))
 
 (provide 'color-lab)
+
+;;; color-lab.el ends here