# HG changeset patch
# User Per Abrahamsen <abraham@dina.kvl.dk>
# Date 1081185669 0
# Node ID 5b50970ffa956633468f684f05ae41fd4d21b6cb
# Parent  4b458413e987d3d9bcbd06f1c72e740411ed9e1a
2004-04-05  Per Abrahamsen  <abraham@dina.kvl.dk>

	* cus-edit.el (custom-add-parent-links): Changed unbound variable
	`symbol' to `name'.

diff -r 4b458413e987 -r 5b50970ffa95 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Apr 05 13:14:16 2004 +0000
+++ b/lisp/ChangeLog	Mon Apr 05 17:21:09 2004 +0000
@@ -1,3 +1,8 @@
+2004-04-05  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+	* cus-edit.el (custom-add-parent-links): Changed unbound variable
+	`symbol' to `name'. 
+
 2004-04-05  Jesper Harder  <harder@ifa.au.dk>
 
 	* info.el (info-apropos): New function.
diff -r 4b458413e987 -r 5b50970ffa95 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Mon Apr 05 13:14:16 2004 +0000
+++ b/lisp/cus-edit.el	Mon Apr 05 17:21:09 2004 +0000
@@ -1963,7 +1963,7 @@
 			   symbol)
 			  buttons)
 		    (setq parents (cons symbol parents))))))
-    (and (null (get symbol 'custom-links)) ;No links of its own.
+    (and (null (get name 'custom-links)) ;No links of its own.
          (= (length parents) 1)         ;A single parent.
          (let* ((links (get (car parents) 'custom-links))
                 (many (> (length links) 2)))