Mercurial > hg > xemacs-beta
diff lisp/objects.el @ 412:697ef44129c6 r21-2-14
Import from CVS: tag r21-2-14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:20:41 +0200 |
parents | 501cfd01ee6d |
children |
line wrap: on
line diff
--- a/lisp/objects.el Mon Aug 13 11:19:22 2007 +0200 +++ b/lisp/objects.el Mon Aug 13 11:20:41 2007 +0200 @@ -46,19 +46,7 @@ SPEC-LIST can be a list of specifications (each of which is a cons of a locale and a list of instantiators), a single instantiator, or a list of instantiators. See `make-specifier' for more information about -specifiers. - -Valid instantiators for font specifiers are: - --- a string naming a font (e.g. under X this might be - \"-*-courier-medium-r-*-*-*-140-*-*-*-*-iso8859-*\" for a 14-point - upright medium-weight Courier font) --- a font instance (use that instance directly if the device matches, - or use the string that generated it) --- a vector of no elements (only on TTY's; this means to set no font - at all, thus using the \"natural\" font of the terminal's text) --- a vector of one element (a face to inherit from) -" +specifiers." (make-specifier-and-init 'font spec-list)) (defun font-name (font &optional domain charset) @@ -139,21 +127,7 @@ SPEC-LIST can be a list of specifications (each of which is a cons of a locale and a list of instantiators), a single instantiator, or a list of instantiators. See `make-specifier' for a detailed description of -how specifiers work. - -Valid instantiators for color specifiers are: - --- a string naming a color (e.g. under X this might be \"lightseagreen2\" - or \"#F534B2\") --- a color instance (use that instance directly if the device matches, - or use the string that generated it) --- a vector of no elements (only on TTY's; this means to set no color - at all, thus using the \"natural\" color of the terminal's text) --- a vector of one or two elements: a face to inherit from, and - optionally a symbol naming which property of that face to inherit, - either `foreground' or `background' (if omitted, defaults to the same - property that this color specifier is used for; if this specifier is - not part of a face, the instantiator would not be valid)." +how specifiers work." (make-specifier-and-init 'color spec-list)) (defun color-name (color &optional domain) @@ -172,24 +146,4 @@ to the result. See `make-specifier' for more information about specifiers." (ws-object-property-1 'color-instance-rgb-components color domain)) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; face-boolean specifiers - -(defun make-face-boolean-specifier (spec-list) - "Return a new `face-boolean' specifier object with the given spec list. -SPEC-LIST can be a list of specifications (each of which is a cons of a -locale and a list of instantiators), a single instantiator, or a list -of instantiators. See `make-specifier' for a detailed description of -how specifiers work. - -Valid instantiators for face-boolean specifiers are - --- t or nil --- a vector of two or three elements: a face to inherit from, - optionally a symbol naming the property of that face to inherit from - (if omitted, defaults to the same property that this face-boolean - specifier is used for; if this specifier is not part of a face, - the instantiator would not be valid), and optionally a value which, - if non-nil, means to invert the sense of the inherited property." - (make-specifier-and-init 'color spec-list)) - ;;; objects.el ends here.