From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: Wed, 14 May 1997 17:38:51 +0000 (+0000)
Subject: Restored code lost in merge.
X-Git-Tag: emacs-20.1~2145
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f39575982b26b1a529f9d7582800ed7270feefb;p=emacs.git

Restored code lost in merge.
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index da0f6166b91..cfd76c59c6f 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1207,7 +1207,9 @@ The list should be sorted most significant first."
   ;; Create compact status report for WIDGET.
   (let* ((parent (widget-get widget :parent))
 	 (state (widget-get parent :custom-state))
-	 (entry (assq state custom-magic-alist))
+	 (entry (assq state (if (eq (car parent) 'custom-group)
+				custom-group-magic-alist
+			      custom-magic-alist)))
 	 (magic (nth 1 entry))
 	 (face (nth 2 entry))
 	 (text (nth 3 entry))