Mercurial > hg > xemacs-beta
diff lisp/faces.el @ 227:0e522484dd2a r20-5b12
Import from CVS: tag r20-5b12
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:12:37 +0200 |
parents | 262b8bb4a523 |
children | 727739f917cb |
line wrap: on
line diff
--- a/lisp/faces.el Mon Aug 13 10:11:42 2007 +0200 +++ b/lisp/faces.el Mon Aug 13 10:12:37 2007 +0200 @@ -46,6 +46,12 @@ ;;; Code: +(defgroup faces nil + "Support for multiple text attributes (fonts, colors, ...) +Such a collection of attributes is called a \"face\"." + :group 'emacs) + + (defun read-face-name (prompt) (let (face) (while (= (length face) 0) ; nil or ""