Mercurial > emacs
changeset 17800:ebc3066cd381
Restored code lost in merge.
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Wed, 14 May 1997 17:38:51 +0000 |
| parents | 0df9495348e7 |
| children | 49d32f8e9f71 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))