Commit 0f395759 authored by Per Abrahamsen's avatar Per Abrahamsen
Browse files

Restored code lost in merge.

parent a3c88c59
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment