# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772320497 0
# Node ID 1bb462fc29fcbf750308c2651ca242d2509ff51f
# Parent  e199eda519b52956b1a024e3e11fe9b28dd4c320
(make-face): Return the face name, not the vector.

diff -r e199eda519b5 -r 1bb462fc29fc lisp/faces.el
--- a/lisp/faces.el	Wed Jun 22 20:37:41 1994 +0000
+++ b/lisp/faces.el	Wed Jun 22 21:28:17 1994 +0000
@@ -230,7 +230,8 @@
 	;; when making a face after frames already exist
 	(if (eq window-system 'x)
 	    (make-face-x-resource-internal face))
-	face)))
+	face))
+  name)
 
 ;; Fill in a face by default based on X resources, for all existing frames.
 ;; This has to be done when a new face is made.