--- a/lisp/cus-face.el	Mon Aug 13 11:01:58 2007 +0200
+++ b/lisp/cus-face.el	Mon Aug 13 11:03:08 2007 +0200
@@ -54,7 +54,6 @@
 
 ;;; Font Attributes.
 
-;; Consider adding the stuff in the XML font model here.
 (defconst custom-face-attributes
   '((:foreground (color :tag "Foreground"
 			:value ""
@@ -99,15 +98,14 @@
 
 The elements are of the form (KEY TYPE SET GET) where KEY is a symbol
 identifying the attribute, TYPE is a widget type for editing the
-attribute, SET is a function for setting the attribute value, and GET is
-a function for getting the attribute value. 
+attibute, SET is a function for setting the attribute value, and GET is a function for getiing the attribute value. 
 
 The SET function should take three arguments, the face to modify, the
 value of the attribute, and optionally the frame where the face should
 be changed.
 
 The GET function should take two arguments, the face to examine, and
-optionally the frame where the face should be examined.")
+optonally the frame where the face should be examined.")
 
 (defun face-custom-attributes-set (face frame &rest atts)
   "For FACE on FRAME set the attributes [KEYWORD VALUE]....
@@ -148,14 +146,6 @@
 	(error nil)))
     result))
 
-(defsubst custom-face-get-spec (symbol)
-  (or (get symbol 'customized-face)
-      (get symbol 'saved-face)
-      (get symbol 'face-defface-spec)
-      ;; Attempt to construct it.
-      (list (list t (face-custom-attributes-get
-		     symbol (selected-frame))))))
-
 (defun custom-set-face-bold (face value &optional frame)
   "Set the bold property of FACE to VALUE."
   (if value
@@ -225,15 +215,6 @@
 	 (fontobj (font-create-object font)))
     (font-family fontobj)))
 
-;;;###autoload
-(defun custom-set-face-update-spec (face display plist)
-  "Customize the FACE for display types matching DISPLAY, merging
-  in the new items from PLIST"
-  (let ((spec (face-spec-update-all-matching (custom-face-get-spec face)
-					     display plist)))
-    (put face 'customized-face spec)
-    (face-spec-set face spec)))
-
 ;;; Initializing.
 
 ;;;###autoload