From 463bcf116e617a6e4e07da6b6d2d2e09018493de Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 24 Nov 2010 01:28:37 +0000 Subject: [PATCH] color-lab.el: Add coding cookie. color-lab.el (float-pi): Use eval-and-compile. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/color-lab.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 41eab2f092a..a1f1fa5eaea 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-11-24 Katsumi Yamaoka + + * color-lab.el: Add coding cookie. + (float-pi): Use eval-and-compile. + 2010-11-23 Lars Magne Ingebrigtsen * shr.el (shr-insert-color-overlay): Split stuff like diff --git a/lisp/gnus/color-lab.el b/lisp/gnus/color-lab.el index 16f711a3c9a..c5a953cea35 100644 --- a/lisp/gnus/color-lab.el +++ b/lisp/gnus/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. @@ -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 @@ Colors must be in CIE L*a*b* format." (* Rt (/ ΔC′ (* Sc kC)) (/ ΔH′ (* Sh kH))))))))) (provide 'color-lab) + +;;; color-lab.el ends here -- 2.39.5