Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/faces.el	Mon Aug 13 09:50:16 2007 +0200
+++ b/lisp/prim/faces.el	Mon Aug 13 09:51:16 2007 +0200
@@ -1029,6 +1029,7 @@
 
 (defun invert-face (face &optional locale)
   "Swap the foreground and background colors of the face."
+  (interactive (list (read-face-name "Invert face: ")))
   (if (valid-specifier-domain-p locale)
       (let ((foreface (face-foreground-instance face locale)))
 	(set-face-foreground face (face-background-instance face locale)