Commit 938004b3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(enriched-decode-foreground)

(enriched-decode-background): Don't call facemenu-get-face.
parent 6396140a
......@@ -432,7 +432,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
(delete-char 1)))
(defun enriched-decode-foreground (from to &optional color)
(if (and color (display-color-p) (facemenu-get-face face))
(if (and color (display-color-p))
(list from to 'face (cons ':foreground color))
(if (null color)
(message "Warning: no color specified for <x-color>")
......@@ -440,7 +440,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
nil))
(defun enriched-decode-background (from to &optional color)
(if (and color (display-color-p) (facemenu-get-face face))
(if (and color (display-color-p))
(list from to 'face (cons ':background color))
(if (null color)
(message "Warning: no color specified for <x-bg-color>")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment