# HG changeset patch
# User Per Abrahamsen <abraham@dina.kvl.dk>
# Date 863631531 0
# Node ID ebc3066cd3818bbe1abfd146b7a0163f25e19202
# Parent  0df9495348e749f523c5f234e63b2b166e33b05f
Restored code lost in merge.

diff -r 0df9495348e7 -r ebc3066cd381 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Wed May 14 17:31:13 1997 +0000
+++ b/lisp/cus-edit.el	Wed May 14 17:38:51 1997 +0000
@@ -1207,7 +1207,9 @@
   ;; 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))