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

(enriched-face-ans): Use face-attribute instead

Browse source 
of face-foreground and face-background.
This commit is contained in:
Gerd Moellmann 2000-11-29 19:22:47 +00:00
parent 3fae165ccb
commit c795794783
2 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,5 +1,16 @@
2000-11-29 Gerd Moellmann <gerd@gnu.org> 2000-11-29 Gerd Moellmann <gerd@gnu.org>
* toolbar/tool-bar.el (tool-bar-add-item-from-menu): Use
face-attribute instead of face-foreground and face-background.
(tool-bar-add-item): Likewise, and handle unspecified colors.
* enriched.el (enriched-face-ans): Use face-attribute instead
of face-foreground and face-background.
* faces.el (face-foreground, face-background, face-stipple):
Return nil if attribute is unspecified, for backward
compatibility.
* files.el (auto-mode-alist): Add an entry for antlr-mode. * files.el (auto-mode-alist): Add an entry for antlr-mode.
* play/5x5.el: Remove version info. * play/5x5.el: Remove version info.

4
lisp/enriched.el
View file

@ -356,8 +356,8 @@ One annotation each for foreground color, background color, italic, etc."
(list (list "x-color" (substring (symbol-name face) 3)))) (list (list "x-color" (substring (symbol-name face) 3))))
((string-match "^bg:" (symbol-name face)) ((string-match "^bg:" (symbol-name face))
(list (list "x-bg-color" (substring (symbol-name face) 3)))) (list (list "x-bg-color" (substring (symbol-name face) 3))))
((let* ((fg (face-foreground face)) ((let* ((fg (face-attribute face :foreground))
(bg (face-background face)) (bg (face-attribute face :background))
(props (face-font face t)) (props (face-font face t))
(ans (cdr (format-annotate-single-property-change (ans (cdr (format-annotate-single-property-change
'face nil props enriched-translations)))) 'face nil props enriched-translations))))