mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Restored code lost in merge.

Browse Source
This commit is contained in:
Per Abrahamsen 1997-05-14 17:38:51 +00:00
parent a3c88c5987
commit 0f39575982
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/cus-edit.el
View File

@ -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))