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.