432 |
(delete-char 1))) |
(delete-char 1))) |
433 |
|
|
434 |
(defun enriched-decode-foreground (from to &optional color) |
(defun enriched-decode-foreground (from to &optional color) |
435 |
(if (and color (display-color-p) (facemenu-get-face face)) |
(if (and color (display-color-p)) |
436 |
(list from to 'face (cons ':foreground color)) |
(list from to 'face (cons ':foreground color)) |
437 |
(if (null color) |
(if (null color) |
438 |
(message "Warning: no color specified for <x-color>") |
(message "Warning: no color specified for <x-color>") |
440 |
nil)) |
nil)) |
441 |
|
|
442 |
(defun enriched-decode-background (from to &optional color) |
(defun enriched-decode-background (from to &optional color) |
443 |
(if (and color (display-color-p) (facemenu-get-face face)) |
(if (and color (display-color-p)) |
444 |
(list from to 'face (cons ':background color)) |
(list from to 'face (cons ':background color)) |
445 |
(if (null color) |
(if (null color) |
446 |
(message "Warning: no color specified for <x-bg-color>") |
(message "Warning: no color specified for <x-bg-color>") |