Mercurial > emacs
changeset 111695:62d2be8b2bd2
color-lab.el: Add coding cookie.
color-lab.el (float-pi): Use eval-and-compile.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 24 Nov 2010 01:28:37 +0000 |
| parents | bef4f575201b |
| children | c63f96430f63 |
| files | lisp/gnus/ChangeLog lisp/gnus/color-lab.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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