Mercurial > hg > xemacs-beta

comparison lisp/prim/faces.el @ 177:6075d714658b r20-3b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 7d55a9ba150c
children f53b5ca2e663
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
1027 ;; handle X specific entries 1027 ;; handle X specific entries
1028 (frob-face-property face 'font 'x-find-larger-font locale)) 1028 (frob-face-property face 'font 'x-find-larger-font locale))
1029 1029
1030 (defun invert-face (face &optional locale) 1030 (defun invert-face (face &optional locale)
1031 "Swap the foreground and background colors of the face." 1031 "Swap the foreground and background colors of the face."
1032 (interactive (list (read-face-name "Invert face: ")))
1032 (if (valid-specifier-domain-p locale) 1033 (if (valid-specifier-domain-p locale)
1033 (let ((foreface (face-foreground-instance face locale))) 1034 (let ((foreface (face-foreground-instance face locale)))
1034 (set-face-foreground face (face-background-instance face locale) 1035 (set-face-foreground face (face-background-instance face locale)
1035 locale) 1036 locale)
1036 (set-face-background face foreface locale)) 1037 (set-face-background face foreface locale))