procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(enriched-decode-foreground, enriched-decode-background):

Browse source 
Use proper format for desired elts of `face' property.
Don't test display-color-p; make the properties unconditionally.
This commit is contained in:
Richard M. Stallman 2002-04-06 16:09:33 +00:00
parent fb49f36a2b
commit 2a9cfe6a16
2 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2002-04-06 Richard M. Stallman <rms@gnu.org>
* 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.

16
lisp/enriched.el
View file

@ -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 <x-color>")
(message "Warning: color `%s' can't be displayed" color))
(if color
(list from to 'face (list ':foreground color))
(message "Warning: no color specified for <x-color>")
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 <x-bg-color>")
(message "Warning: color `%s' can't be displayed" color))
(if color
(list from to 'face (list ':background color))
(message "Warning: no color specified for <x-bg-color>")
nil))
;;; Handling the `display' property.