Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 5373:b6e59ea11533

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add min-colors specifier to defface, and document it.
author Jeff Sparkes <jsparkes@gmail.com>
date Thu, 17 Mar 2011 14:35:02 -0400
parents ed74d2ca7082
children 4f0a1f4cc111 ac37a5f7e5be
comparison
equal deleted inserted replaced
5372:6c3a695f54f5 5373:b6e59ea11533
1700 t 1700 t
1701 (let* ((props (get-custom-frame-properties frame)) 1701 (let* ((props (get-custom-frame-properties frame))
1702 (type (plist-get props 'type)) 1702 (type (plist-get props 'type))
1703 (class (plist-get props 'class)) 1703 (class (plist-get props 'class))
1704 (background (plist-get props 'background)) 1704 (background (plist-get props 'background))
1705 (min-colors (plist-get props 'min-colors))
1705 (match t) 1706 (match t)
1706 (entries display) 1707 (entries display)
1707 entry req options) 1708 entry req options)
1708 (while (and entries match) 1709 (while (and entries match)
1709 (setq entry (car entries) 1710 (setq entry (car entries)
1712 options (cdr entry) 1713 options (cdr entry)
1713 match (case req 1714 match (case req
1714 (type (memq type options)) 1715 (type (memq type options))
1715 (class (memq class options)) 1716 (class (memq class options))
1716 (background (memq background options)) 1717 (background (memq background options))
1718 (min-colors (>= (display-color-cells frame)
1719 (car options)))
1717 (t (warn "Unknown req `%S' with options `%S'" 1720 (t (warn "Unknown req `%S' with options `%S'"
1718 req options) 1721 req options)
1719 nil)))) 1722 nil))))
1720 match))) 1723 match)))
1721 1724