wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

hexrgb.el should not load cl.

This commit is contained in:
cnngimenez 2021-03-23 12:07:21 -03:00 committed by wgreenhouse
parent 8b0658fa0f
commit 3b0ccf3864
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
jabber-fallback-lib/hexrgb.el
View File

@ -156,7 +156,7 @@
;; ;;
;;; Code: ;;; Code:
(eval-when-compile (require 'cl)) ;; case; plus, for Emacs < 20: when, unless (eval-when-compile (require 'cl-lib)) ;; case; plus, for Emacs < 20: when, unless
;; Unless you first load `hexrgb.el', then either `palette.el' or `eyedropper.el', you will get ;; Unless you first load `hexrgb.el', then either `palette.el' or `eyedropper.el', you will get
;; warnings about variables and functions with prefix `eyedrop-' when you byte-compile ;; warnings about variables and functions with prefix `eyedrop-' when you byte-compile
@ -346,7 +346,7 @@ Optional arg PROMPT is the prompt. Nil means use a default prompt."
(try-completion color colors)))) (try-completion color colors))))
(error "No such color: %S" color)) (error "No such color: %S" color))
(when convert-to-RGB-p (setq color (hexrgb-color-name-to-hex color)))) (when convert-to-RGB-p (setq color (hexrgb-color-name-to-hex color))))
(when (interactive-p) (message "Color: `%s'" color)) (when (called-interactively-p 'interactive) (message "Color: `%s'" color))
color))) color)))
;;;###autoload ;;;###autoload
@ -370,7 +370,7 @@ returned; otherwise, t is returned."
(green (hexrgb-green color)) (green (hexrgb-green color))
(blue (hexrgb-blue color))) (blue (hexrgb-blue color)))
(setq color (hexrgb-rgb-to-hex (- 1.0 red) (- 1.0 green) (- 1.0 blue)))) (setq color (hexrgb-rgb-to-hex (- 1.0 red) (- 1.0 green) (- 1.0 blue))))
(when (interactive-p) (message "Complement: `%s'" color)) (when (called-interactively-p 'interactive) (message "Complement: `%s'" color))
color) color)
;;;###autoload ;;;###autoload
@ -481,7 +481,7 @@ Returns a list of RGB components of value 0.0 to 1.0, inclusive."
pp (* value (- 1 saturation)) pp (* value (- 1 saturation))
qq (* value (- 1 (* saturation fract))) qq (* value (- 1 (* saturation fract)))
ww (* value (- 1 (* saturation (- 1 (- hue int-hue)))))) ww (* value (- 1 (* saturation (- 1 (- hue int-hue))))))
(case int-hue (cl-case int-hue
((0 6) (setq red value ((0 6) (setq red value
green ww green ww
blue pp)) blue pp))