# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1290562117 0
# Node ID 62d2be8b2bd2f885b315a068c11edb431c0c64d5
# Parent  bef4f575201b914f88508b209dd22491275910cf
color-lab.el: Add coding cookie.
color-lab.el (float-pi): Use eval-and-compile.

diff -r bef4f575201b -r 62d2be8b2bd2 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Nov 24 00:35:23 2010 +0000
+++ b/lisp/gnus/ChangeLog	Wed Nov 24 01:28:37 2010 +0000
@@ -1,3 +1,8 @@
+2010-11-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* color-lab.el: Add coding cookie.
+	(float-pi): Use eval-and-compile.
+
 2010-11-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* shr.el (shr-insert-color-overlay): Split stuff like
diff -r bef4f575201b -r 62d2be8b2bd2 lisp/gnus/color-lab.el
--- a/lisp/gnus/color-lab.el	Wed Nov 24 00:35:23 2010 +0000
+++ b/lisp/gnus/color-lab.el	Wed Nov 24 01:28:37 2010 +0000
@@ -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.
 
@@ -27,8 +27,9 @@
 ;;; Code:
 
 ;; Emacs < 23.3
-(unless (boundp 'float-pi)
-  (defconst float-pi (* 4 (atan 1)) "The value of Pi (3.1415926...)."))
+(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.
@@ -243,3 +244,5 @@
                  (* Rt (/ ΔC′ (* Sc kC)) (/ ΔH′ (* Sh kH)))))))))
 
 (provide 'color-lab)
+
+;;; color-lab.el ends here