branch: elpa/htmlize
commit a040bddea2bb2706abc1dc44d0c2a41f21f2ae79
Author: Hrvoje Niksic <[email protected]>
Commit: Hrvoje Niksic <[email protected]>
Don't try to call color-instance-rgb-components.
It was an XEmacs-only function, and we no longer support XEmacs.
---
htmlize.el | 12 +++---------
1 file changed, 3 insertions(+), 9 deletions(-)
diff --git a/htmlize.el b/htmlize.el
index f0376ce..ab90c28 100644
--- a/htmlize.el
+++ b/htmlize.el
@@ -969,15 +969,9 @@ If no rgb.txt file is found, return nil."
(setq rgb-string (gethash (downcase color) htmlize-color-rgb-hash)))
(t
;; We're getting the RGB components from Emacs.
- (let ((rgb
- (if (fboundp 'color-instance-rgb-components)
- (mapcar (lambda (arg)
- (/ arg 256))
- (color-instance-rgb-components
- (make-color-instance color)))
- (mapcar (lambda (arg)
- (/ arg 256))
- (color-values color)))))
+ (let ((rgb (mapcar (lambda (arg)
+ (/ arg 256))
+ (color-values color))))
(when rgb
(setq rgb-string (apply #'format "#%02x%02x%02x" rgb))))))
;; If RGB-STRING is still nil, it means the color cannot be found,
