diff --git a/lisp/org.el b/lisp/org.el index 4f1ee6110..02d05b2d9 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19559,25 +19559,21 @@ SNIPPETS-P indicates if this is run to create snippet images for HTML." (defun org-dvipng-color (attr) "Return a RGB color specification for dvipng." - (apply #'format "rgb %s %s %s" - (mapcar #'org-normalize-color - (color-values (face-attribute 'default attr nil))))) + (org-dvipng-color-format (face-attribute 'default attr nil))) (defun org-dvipng-color-format (color-name) "Convert COLOR-NAME to a RGB color value for dvipng." - (apply 'format "rgb %s %s %s" + (apply #'format "rgb %s %s %s" (mapcar 'org-normalize-color (color-values color-name)))) (defun org-latex-color (attr) "Return a RGB color for the LaTeX color package." - (apply #'format "%s,%s,%s" - (mapcar #'org-normalize-color - (color-values (face-attribute 'default attr nil))))) + (org-latex-color-format (face-attribute 'default attr nil))) (defun org-latex-color-format (color-name) "Convert COLOR-NAME to a RGB color value." - (apply 'format "%s,%s,%s" + (apply #'format "%s,%s,%s" (mapcar 'org-normalize-color (color-values color-name))))