CVS update by didierv xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: didierv 
  Date: 07/10/02 09:54:09

  Modified:    xemacs/lisp ChangeLog objects.el
Log:
Really make face-boolean specifiers

Revision  Changes    Path
1.844     +7 -2      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.843
retrieving revision 1.844
diff -u -p -r1.843 -r1.844
--- ChangeLog	2007/10/01 08:07:39	1.843
+++ ChangeLog	2007/10/02 07:54:07	1.844
@@ -1,3 +1,8 @@
+2007-10-02  Didier Verna  <didier at xemacs.org>
+
+	* objects.el (make-face-boolean-specifier): Fix docstring, really
+	make a face-boolean specifier (not a color one).
+
 2007-09-23  Stephen J. Turnbull  <stephen at xemacs.org>
 
 	* subr.el (replace-regexp-in-string): Handle SUBEXP arg properly.
@@ -7,10 +12,10 @@
 	* x-faces.el:
 	* x-faces.el ('x-resource)): Removed.
 	Specifier tag moved to specifier.el to ensure availability on
-	non-X builds. 
+	non-X builds.
 	* specifier.el:
 	Provide x, tty, mswindows, msprinter, gtk and carbon as device
-	tags that never match on builds that don't support them. 
+	tags that never match on builds that don't support them.
 	* specifier.el ('x-resource)): New.
 	Moved here from x-faces.el
 



1.7       +2 -2      XEmacs/xemacs/lisp/objects.el

Index: objects.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/objects.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- objects.el	2005/11/29 12:08:36	1.6
+++ objects.el	2007/10/02 07:54:08	1.7
@@ -186,12 +186,12 @@ 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,
+-- a vector of one, 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))
+  (make-specifier-and-init 'face-boolean spec-list))
 
 ;;; objects.el ends here.