Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 262b8bb4a523
children 727739f917cb
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
43 43
44 44
45 ;;; Some stuff in FSF's faces.el is in our x-faces.el. 45 ;;; Some stuff in FSF's faces.el is in our x-faces.el.
46 46
47 ;;; Code: 47 ;;; Code:
48
49 (defgroup faces nil
50 "Support for multiple text attributes (fonts, colors, ...)
51 Such a collection of attributes is called a \"face\"."
52 :group 'emacs)
53
48 54
49 (defun read-face-name (prompt) 55 (defun read-face-name (prompt)
50 (let (face) 56 (let (face)
51 (while (= (length face) 0) ; nil or "" 57 (while (= (length face) 0) ; nil or ""
52 (setq face (completing-read prompt 58 (setq face (completing-read prompt