The following symbols have predefined meanings:
foreground The foreground color of the face.
- For valid instantiators, see `make-color-specifier'.
+ For valid instantiators, see `make-color-specifier'.
background The background color of the face.
- For valid instantiators, see `make-color-specifier'.
+ For valid instantiators, see `make-color-specifier'.
font The font used to display text covered by this face.
- For valid instantiators, see `make-font-specifier'.
+ For valid instantiators, see `make-font-specifier'.
display-table The display table of the face.
- This should be a vector of 256 elements.
+ This should be a vector of 256 elements.
background-pixmap The pixmap displayed in the background of the face.
- Only used by faces on X and MS Windows devices.
- For valid instantiators, see `make-image-specifier'.
+ Only used by faces on X and MS Windows devices.
+ For valid instantiators, see `make-image-specifier'.
underline Underline all text covered by this face.
- For valid instantiators, see `make-face-boolean-specifier'.
+ For valid instantiators, see `make-face-boolean-specifier'.
strikethru Draw a line through all text covered by this face.
- For valid instantiators, see `make-face-boolean-specifier'.
+ For valid instantiators, see `make-face-boolean-specifier'.
highlight Highlight all text covered by this face.
- Only used by faces on TTY devices.
- For valid instantiators, see `make-face-boolean-specifier'.
+ Only used by faces on TTY devices.
+ For valid instantiators, see `make-face-boolean-specifier'.
dim Dim all text covered by this face.
- For valid instantiators, see `make-face-boolean-specifier'.
+ For valid instantiators, see `make-face-boolean-specifier'.
blinking Blink all text covered by this face.
- Only used by faces on TTY devices.
- For valid instantiators, see `make-face-boolean-specifier'.
+ Only used by faces on TTY devices.
+ For valid instantiators, see `make-face-boolean-specifier'.
reverse Reverse the foreground and background colors.
- Only used by faces on TTY devices.
- For valid instantiators, see `make-face-boolean-specifier'.
+ Only used by faces on TTY devices.
+ For valid instantiators, see `make-face-boolean-specifier'.
inherit Face name or face object from which to inherit attributes,
- or a list of such elements. Attributes from inherited
- faces are merged into the face like an underlying face
- would be, with higher priority than underlying faces.
+ or a list of such elements. Attributes from inherited
+ faces are merged into the face like an underlying face
+ would be, with higher priority than underlying faces.
doc-string Description of what the face's normal use is.
- NOTE: This is not a specifier, unlike all
- the other built-in properties, and cannot
- contain locale-specific values."
+ NOTE: This is not a specifier, unlike all
+ the other built-in properties, and cannot
+ contain locale-specific values."
(setq face (get-face face))
(if (memq property built-in-face-specifiers)
(and (face-equal-loop common-props face1 face2 domain)
(cond ((eq 'tty (device-type device))
(face-equal-loop tty-props face1 face2 domain))
- ;; #### Why isn't this (console-on-window-system-p (device-console device))?
- ;; #### FIXME!
- ((or (eq 'x (device-type device))
- (eq 'gtk (device-type device)))
+ ;; #### Why isn't this (console-on-window-system-p (device-console device))?
+ ;; #### FIXME!
+ ((eq 'x (device-type device))
(face-equal-loop win-props face1 face2 domain))
(t t)))))
(when (not (specifier-specs temp-sp 'global))
;; Try fallback via the official ways and then do it "by hand"
(let* ((fallback (specifier-fallback sp))
- (fallback-sp
+ (fallback-sp
(cond ((specifierp fallback) fallback)
;; just an inst list
(fallback
(if (not first-valid)
(setq first-valid inst-pair))
(setq result (funcall func sp-inst device))
- (if result
- (setq result (cons tag-set result))))))
+ (if result
+ (setq result (cons tag-set result))))))
(setq inst-list (cdr inst-list)))
(or result first-valid)))
(set-face-highlight-p face t locale (cons 'tty tags))))
(lambda ()
;; handle window-system specific entries
- (when (featurep 'gtk)
- (frob-face-property face 'font 'gtk-make-font-bold
- '(gtk) locale tags))
(when (featurep 'x)
(frob-face-property face 'font 'x-make-font-bold
'(x) locale tags))
(set-face-underline-p face t locale (cons 'tty tags))))
(lambda ()
;; handle window-system specific entries
- (when (featurep 'gtk)
- (frob-face-property face 'font 'gtk-make-font-italic
- '(gtk) locale tags))
(when (featurep 'x)
(frob-face-property face 'font 'x-make-font-italic
'(x) locale tags))
(set-face-underline-p face t locale (cons 'tty tags))))
(lambda ()
;; handle window-system specific entries
- (when (featurep 'gtk)
- (frob-face-property face 'font 'gtk-make-font-bold-italic
- '(gtk) locale tags))
(when (featurep 'x)
(frob-face-property face 'font 'x-make-font-bold-italic
'(x) locale tags))
(set-face-highlight-p face nil locale (cons 'tty tags))))
(lambda ()
;; handle window-system specific entries
- (when (featurep 'gtk)
- (frob-face-property face 'font 'gtk-make-font-unbold
- '(gtk) locale tags))
(when (featurep 'x)
(frob-face-property face 'font 'x-make-font-unbold
'(x) locale tags))
(set-face-underline-p face nil locale (cons 'tty tags))))
(lambda ()
;; handle window-system specific entries
- (when (featurep 'gtk)
- (frob-face-property face 'font 'gtk-make-font-unitalic
- '(gtk) locale tags))
(when (featurep 'x)
(frob-face-property face 'font 'x-make-font-unitalic
'(x) locale tags))
;; Size frobbing
;; Thx Jan Vroonhof, Ref xemacs-beta <87oflypbum.fsf@petteflet.ntlworld.com>
-;; Jan had a separate helper function
+;; Jan had a separate helper function
(defun make-face-size (face size &optional locale tags)
"Adjust FACE to SIZE in LOCALE, if possible.
;; Then do any device-specific initialization.
(cond ((eq 'x (device-type device))
(declare-fboundp (x-init-device-faces device)))
- ((eq 'gtk (device-type device))
- (declare-fboundp (gtk-init-device-faces device)))
;; Nothing to do for TTYs?
)
(or (eq 'stream (device-type device))
;; Then do any frame-specific initialization.
(cond ((eq 'x (frame-type frame))
(declare-fboundp (x-init-frame-faces frame)))
- ((eq 'gtk (frame-type frame))
- (declare-fboundp (gtk-init-frame-faces frame)))
;; Is there anything which should be done for TTY's?
)))
(init-face-from-resources face 'global))
;; Further X frobbing.
(and (featurep 'x) (declare-fboundp (x-init-global-faces)))
- (and (featurep 'gtk) (declare-fboundp (gtk-init-global-faces)))
;; for bold and the like, make the global specification be bold etc.
;; if the user didn't already specify a value. These will also be
set-face-background-pixmap instead.
PIXMAP should be a string, the name of a file of pixmap data.
-The directories listed in the variable `x-bitmap-file-path'
+The directories listed in the variable `x-bitmap-file-path'
under X is searched.
Alternatively, PIXMAP may be a list of the form (WIDTH HEIGHT
((x default grayscale) . "gray53"))
'global)
(set-face-background-pixmap 'highlight
- '(((x default mono) . "gray1")
- ((gtk default mono) . "gray1"))
+ '(((x default mono) . "gray1"))
'global)
(set-face-background 'zmacs-region
((x default grayscale) . "gray65"))
'global)
(set-face-background-pixmap 'zmacs-region
- '(((x default mono) . "gray3")
- ((gtk default mono) . "gray3"))
+ '(((x default mono) . "gray3"))
'global)
(set-face-background 'list-mode-item-selected
'(((x default color) . "gray68")
((x default grayscale) . "gray68")
- ((x default mono) . [default foreground])
- ((gtk default color) . "gray68")
- ((gtk default grayscale) . "gray68")
- ((gtk default mono) . [default foreground]))
+ ((x default mono) . [default foreground]))
'global)
(set-face-foreground 'list-mode-item-selected
'(((x default mono) . [default background]))
((x default grayscale) . "gray65"))
'global)
(set-face-background-pixmap 'primary-selection
- '(((x default mono) . "gray3")
- ((gtk default mono) . "gray3"))
+ '(((x default mono) . "gray3"))
'global)
(set-face-background 'secondary-selection
'(((x default color) . "paleturquoise")
((x default color) . "green")
- ((x default grayscale) . "gray53")
- ((gtk default color) . "paleturquoise")
- ((gtk default color) . "green")
- ((gtk default grayscale) . "gray53"))
+ ((x default grayscale) . "gray53"))
'global)
(set-face-background-pixmap 'secondary-selection
- '(((x default mono) . "gray1")
- ((gtk default mono) . "gray1"))
+ '(((x default mono) . "gray1"))
'global)
(set-face-background 'isearch
'(((x default color) . "paleturquoise")
- ((x default color) . "green")
- ((gtk default color) . "paleturquoise")
- ((gtk default color) . "green"))
+ ((x default color) . "green"))
'global)
;; #### This should really, I mean *really*, be converted to some form
projects / sxemacs / blobdiff