Mercurial > emacs
comparison lisp/faces.el @ 3001:c6c6e476d93d
* faces.el (make-face): Change interactive spec to 'S'.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 24 May 1993 01:58:58 +0000 |
parents | ca9bf00d4b19 |
children | 314cb8d34dcd |
comparison
equal
deleted
inserted
replaced
3000:0fdd43a27e15 | 3001:c6c6e476d93d |
---|---|
199 | 199 |
200 (defun make-face (name) | 200 (defun make-face (name) |
201 "Define a new FACE on all frames. | 201 "Define a new FACE on all frames. |
202 You can modify the font, color, etc of this face with the set-face- functions. | 202 You can modify the font, color, etc of this face with the set-face- functions. |
203 If the face already exists, it is unmodified." | 203 If the face already exists, it is unmodified." |
204 (interactive "sMake face: ") | 204 (interactive "SMake face: ") |
205 (or (internal-find-face name) | 205 (or (internal-find-face name) |
206 (let ((face (make-vector 8 nil))) | 206 (let ((face (make-vector 8 nil))) |
207 (aset face 0 'face) | 207 (aset face 0 'face) |
208 (aset face 1 name) | 208 (aset face 1 name) |
209 (let* ((frames (frame-list)) | 209 (let* ((frames (frame-list)) |