From 0f39575982b26b1a529f9d7582800ed7270feefb Mon Sep 17 00:00:00 2001 From: Per Abrahamsen Date: Wed, 14 May 1997 17:38:51 +0000 Subject: [PATCH] Restored code lost in merge. --- lisp/cus-edit.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.39.2