# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1042501586 0
# Node ID e53c0b341ec5360460c3eb142adfc6072e705b57
# Parent  ddeb57b6c977210329c10eaf4db785b7ed7b2b8d
(custom-make-dependencies):  Don't set standard-value
and version numbers for variables.  Handle faces.

diff -r ddeb57b6c977 -r e53c0b341ec5 lisp/cus-dep.el
--- a/lisp/cus-dep.el	Mon Jan 13 23:43:30 2003 +0000
+++ b/lisp/cus-dep.el	Mon Jan 13 23:46:26 2003 +0000
@@ -139,15 +139,10 @@
 		  (when version 
 		    (setq where (get symbol 'custom-where))
 		    (when where
-		      (insert "(custom-put-if-not '" (symbol-name symbol) 
-			      " 'custom-version ")
-		      (prin1 version (current-buffer))
-		      (insert ")\n")
-		      (insert "(custom-put-if-not '" (symbol-name symbol))
-		      (if (get symbol 'standard-value)
-			  ;; This means it's a variable
+		      (if (or (custom-variable-p symbol)
+			      (custom-facep symbol))
+			  ;; This means it's a variable or a face.
 			  (progn
-			    (insert " 'standard-value t)\n")
 			    (if (assoc version version-alist)
 				(unless 
 				    (member where 
@@ -155,9 +150,20 @@
 				  (push where (cdr (assoc version version-alist))))
 			      (push (cons version (list where)) version-alist)))
 			;; This is a group
+			(insert "(custom-put-if-not '" (symbol-name symbol) 
+				" 'custom-version ")
+			(prin1 version (current-buffer))
+			(insert ")\n")
+			(insert "(custom-put-if-not '" (symbol-name symbol))
 			(insert " 'group-documentation ")
 			(prin1 (get symbol 'group-documentation) (current-buffer))
-			(insert ")\n")))))))
+			(insert ")\n")
+			(when (get symbol 'custom-tag)
+			  (insert "(custom-put-if-not '" (symbol-name symbol))
+			  (insert " 'custom-tag ")
+			  (prin1 (get symbol 'custom-tag) (current-buffer))
+			  (insert ")\n"))
+			))))))
 
     (insert "\n(defvar custom-versions-load-alist "
 	    (if version-alist "'" ""))