From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: Mon, 5 Apr 2004 17:21:09 +0000 (+0000)
Subject: 2004-04-05  Per Abrahamsen  <abraham@dina.kvl.dk>
X-Git-Tag: ttn-vms-21-2-B4~6962
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e4d1662d2127b09c12889d33bc67db8bbc61b6d;p=emacs.git

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 d495c71de14..21680c980fe 100644
--- 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 04570b1512e..951b14f7f05 100644
--- 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)))