changeset 5375:2fba45e5b48d

Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 17 Mar 2011 20:17:19 +0000
parents b6e59ea11533 (diff) d967d96ca043 (current diff)
children 4b529b940e2e ac37a5f7e5be
files lisp/ChangeLog man/ChangeLog
diffstat 5 files changed, 20 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Mar 17 20:13:00 2011 +0000
+++ b/lisp/ChangeLog	Thu Mar 17 20:17:19 2011 +0000
@@ -5,6 +5,13 @@
 	but keep the information about them around for the sake of the
 	disassembler.
 
+2011-03-14  Jeff Sparkes  <jsparkes@gmail.com>
+
+	* custom.el (defface): Document `min-colors' specifier.
+
+	* faces.el (face-spec-set-match-display): Add `min-colors'
+	specifer for defface.
+
 2011-03-12  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* isearch-mode.el (isearch-mode-map):
--- a/lisp/custom.el	Thu Mar 17 20:13:00 2011 +0000
+++ b/lisp/custom.el	Thu Mar 17 20:17:19 2011 +0000
@@ -325,6 +325,9 @@
 `class' (the frame's color support)
   Should be one of `color', `grayscale', or `mono'.
 
+`min-colors' (the minimum number of colors the frame supports)
+  Should be in integer which is compared to `display-color-cells'
+
 `background' (what color is used for the background text)
   Should be one of `light' or `dark'.
 
--- a/lisp/faces.el	Thu Mar 17 20:13:00 2011 +0000
+++ b/lisp/faces.el	Thu Mar 17 20:17:19 2011 +0000
@@ -1702,6 +1702,7 @@
 	   (type (plist-get props 'type))
 	   (class (plist-get props 'class))
 	   (background (plist-get props 'background))
+           (min-colors (plist-get props 'min-colors))
 	   (match t)
 	   (entries display)
 	   entry req options)
@@ -1714,6 +1715,8 @@
 		      (type       (memq type options))
 		      (class      (memq class options))
 		      (background (memq background options))
+		      (min-colors (>= (display-color-cells frame)
+				      (car options)))
 		      (t (warn "Unknown req `%S' with options `%S'"
 			       req options)
 			 nil))))
--- a/man/ChangeLog	Thu Mar 17 20:13:00 2011 +0000
+++ b/man/ChangeLog	Thu Mar 17 20:17:19 2011 +0000
@@ -5,6 +5,11 @@
 	No longer document `old-eq', `old-equal', they haven't been used
 	in years.
 
+2011-03-14  Jeff Sparkes  <jsparkes@gmail.com>
+
+	* lispref/faces.texi (Faces): Mention `min-colors' as a
+	face specifier.
+
 2011-03-01  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* lispref/commands.texi (Using Interactive):
--- a/man/lispref/faces.texi	Thu Mar 17 20:13:00 2011 +0000
+++ b/man/lispref/faces.texi	Thu Mar 17 20:17:19 2011 +0000
@@ -27,7 +27,8 @@
 Each built-in property of a face is controlled using a specifier,
 which allows it to have separate values in particular buffers, frames,
 windows, and devices and to further vary according to device type
-(X or TTY) and device class (color, mono, or grayscale).
+(X or TTY), device class (color, mono, or grayscale) and number of
+displayable colors (min-colors).
 @xref{Specifiers}, for more information.
 
 The face named @code{default} is used for ordinary text.  The face named