Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents f2b5d7006b0a
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
1233 (put face 'custom-face-display display)) 1233 (put face 'custom-face-display display))
1234 (setq spec nil))))) 1234 (setq spec nil)))))
1235 1235
1236 (defvar default-custom-frame-properties nil 1236 (defvar default-custom-frame-properties nil
1237 "The frame properties used for the global faces. 1237 "The frame properties used for the global faces.
1238 Frames not matching these propertiess should have frame local faces. 1238 Frames not matching these properties should have frame local faces.
1239 The value should be nil, if uninitialized, or a plist otherwise. 1239 The value should be nil, if uninitialized, or a plist otherwise.
1240 See `defface' for a list of valid keys and values for the plist.") 1240 See `defface' for a list of valid keys and values for the plist.")
1241 1241
1242 (defun get-custom-frame-properties (&optional frame) 1242 (defun get-custom-frame-properties (&optional frame)
1243 "Return a plist with the frame properties of FRAME used by custom. 1243 "Return a plist with the frame properties of FRAME used by custom.