# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760731729 0
# Node ID d0fc9207705a3fe44e1710267931587949653eb3
# Parent  07a4626166d4840668ee8e49cd73d06d0cf29d3b
(copy-face): Doc fix.

diff -r 07a4626166d4 -r d0fc9207705a lisp/faces.el
--- a/lisp/faces.el	Tue Feb 08 18:00:41 1994 +0000
+++ b/lisp/faces.el	Tue Feb 08 18:22:09 1994 +0000
@@ -293,25 +293,31 @@
 	   )))
   face)
 
-(defun copy-face (old-face new-name &optional frame new-frame)
-  "Define a face just like OLD-FACE, with name NEW-NAME.
-If NEW-NAME already exists as a face, it is modified to be like OLD-FACE.
-If the optional argument FRAME is given, this applies only to that frame.
-Otherwise it applies to each frame separately.
+(defun copy-face (old-face new-face &optional frame new-frame)
+  "Define a face just like OLD-FACE, with name NEW-FACE.
+If NEW-FACE already exists as a face, it is modified to be like OLD-FACE.
+If it doesn't already exist, it is created.
+
+If the optional argument FRAME is given as a frame,
+NEW-FACE is changed on FRAME only.
+If FRAME is t, the frame-independent default specification for OLD-FACE
+is copied to NEW-FACE.
+If FRAME is nil, copying is done for the frame-independent defaults
+and for each existing frame.
 If the optional fourth argument NEW-FRAME is given, 
 copy the information from face OLD-FACE on frame FRAME
-to face NEW-NAME on frame NEW-FRAME."
+to NEW-FACE on frame NEW-FRAME."
   (or new-frame (setq new-frame frame))
   (setq old-face (internal-get-face old-face frame))
   (let* ((inhibit-quit t)
-	 (new-face (or (internal-find-face new-name new-frame)
-		       (make-face new-name))))
+	 (new-face (or (internal-find-face new-face new-frame)
+		       (make-face new-face))))
     (if (null frame)
 	(let ((frames (frame-list)))
 	  (while frames
-	    (copy-face old-face new-name (car frames))
+	    (copy-face old-face new-face (car frames))
 	    (setq frames (cdr frames)))
-	  (copy-face old-face new-name t))
+	  (copy-face old-face new-face t))
       (set-face-font new-face (face-font old-face frame) new-frame)
       (set-face-foreground new-face (face-foreground old-face frame) new-frame)
       (set-face-background new-face (face-background old-face frame) new-frame)