(read-face-name): Doc fix.

diff --git a/lisp/faces.el b/lisp/faces.el
index 2d761ea8471f720dde2076279402b922fecf6ca3..0f0dd41aa69a2544df4129abfbbf0bdb374efa43 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -860,9 +860,10 @@ of the default face.  Value is FACE."
 (defun read-face-name (prompt &optional string-describing-default multiple)
   "Read a face, defaulting to the face or faces on the char after point.
 If it has the property `read-face-name', that overrides the `face' property.
-PROMPT describes what you will do with the face (don't end in a space).
-STRING-DESCRIBING-DEFAULT describes what default you will use
-if this function returns nil.
+PROMPT should be a string that describes what the caller will do with the face;
+it should not end in a space.
+STRING-DESCRIBING-DEFAULT should describe what default the caller will use if
+the user just types RET; you can omit it.
 If MULTIPLE is non-nil, return a list of faces (possibly only one).
 Otherwise, return a single face."
   (let ((faceprop (or (get-char-property (point) 'read-face-name)