Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 3d3049ae1304
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
1634 expected in this case, other types of image data will not work. 1634 expected in this case, other types of image data will not work.
1635 1635
1636 If the optional FRAME argument is provided, change only 1636 If the optional FRAME argument is provided, change only
1637 in that frame; otherwise change each frame." 1637 in that frame; otherwise change each frame."
1638 (while (not (find-face face)) 1638 (while (not (find-face face))
1639 (setq face (signal 'wrong-type-argument (list 'facep face)))) 1639 (setq face (wrong-type-argument 'facep face)))
1640 (let ((bitmap-path (ecase (console-type) 1640 (let ((bitmap-path (ecase (console-type)
1641 (x x-bitmap-file-path) 1641 (x x-bitmap-file-path)
1642 (mswindows mswindows-bitmap-file-path))) 1642 (mswindows mswindows-bitmap-file-path)))
1643 instantiator) 1643 instantiator)
1644 (while 1644 (while
1659 (flet ((stipple-pixmap-p (pixmap) 1659 (flet ((stipple-pixmap-p (pixmap)
1660 (or (stringp pixmap) 1660 (or (stringp pixmap)
1661 (and (listp pixmap) (= (length pixmap) 3))))) 1661 (and (listp pixmap) (= (length pixmap) 3)))))
1662 (setq pixmap (signal 'wrong-type-argument 1662 (setq pixmap (signal 'wrong-type-argument
1663 (list 'stipple-pixmap-p pixmap))))) 1663 (list 'stipple-pixmap-p pixmap)))))
1664 (while (and frame (not (framep frame))) 1664 (check-type frame (or null frame))
1665 (setq frame (signal 'wrong-type-argument (list 'framep frame))))
1666 (set-face-background-pixmap face instantiator frame))) 1665 (set-face-background-pixmap face instantiator frame)))
1667 1666
1668 1667
1669 ;; Create the remaining standard faces now. This way, packages that we dump 1668 ;; Create the remaining standard faces now. This way, packages that we dump
1670 ;; can reference these faces as parents. 1669 ;; can reference these faces as parents.