From 2a9cfe6a167aa6b470beadac03f6fa7ca5d9681d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 6 Apr 2002 16:09:33 +0000 Subject: [PATCH] (enriched-decode-foreground, enriched-decode-background): Use proper format for desired elts of `face' property. Don't test display-color-p; make the properties unconditionally. --- lisp/ChangeLog | 4 ++++ lisp/enriched.el | 16 ++++++---------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2b069d37395..fd8bdb3cb4d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2002-04-06 Richard M. Stallman + * enriched.el (enriched-decode-foreground, enriched-decode-background): + Use proper format for desired elts of `face' property. + Don't test display-color-p; make the properties unconditionally. + * progmodes/compile.el (compilation-error-regexp-alist): New alternatives for FILE:LINE.COL and for ranges of columns and lines. diff --git a/lisp/enriched.el b/lisp/enriched.el index 8edf7c730e2..e74cb6b8ba7 100644 --- a/lisp/enriched.el +++ b/lisp/enriched.el @@ -432,19 +432,15 @@ 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)) - (list from to 'face (cons ':foreground color)) - (if (null color) - (message "Warning: no color specified for ") - (message "Warning: color `%s' can't be displayed" color)) + (if color + (list from to 'face (list ':foreground color)) + (message "Warning: no color specified for ") nil)) (defun enriched-decode-background (from to &optional color) - (if (and color (display-color-p)) - (list from to 'face (cons ':background color)) - (if (null color) - (message "Warning: no color specified for ") - (message "Warning: color `%s' can't be displayed" color)) + (if color + (list from to 'face (list ':background color)) + (message "Warning: no color specified for ") nil)) ;;; Handling the `display' property. -- 2.39.5