From 8e4d1662d2127b09c12889d33bc67db8bbc61b6d Mon Sep 17 00:00:00 2001 From: Per Abrahamsen Date: Mon, 5 Apr 2004 17:21:09 +0000 Subject: [PATCH] 2004-04-05 Per Abrahamsen * cus-edit.el (custom-add-parent-links): Changed unbound variable `symbol' to `name'. --- lisp/ChangeLog | 5 +++++ lisp/cus-edit.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * cus-edit.el (custom-add-parent-links): Changed unbound variable + `symbol' to `name'. + 2004-04-05 Jesper Harder * 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))) -- 2.39.5