2004-04-05 Per Abrahamsen <abraham@dina.kvl.dk>

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d495c71de14352522a64525539c08e0c1cee248d..21680c980feb6dbce4985a14488552134aceb90a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 04570b1512ea503c08fa0da89e837a53b87115a7..951b14f7f05cfe4ae45f151f8129687f4c0894cd 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1963,7 +1963,7 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
                           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)))