Re: face-remapping patch

[Stephen J. Turnbull]

David Kastrup writes:

 > ;;; [Courtesy Stephen J. Turnbull, with some modifications
 > ;;;  Message-ID: <address@hidden>
 > ;;;  I could not have figured this out for the world]
 > ;;; Hm, there really ought to be a way to get the spec that would be
 > ;;; instantiated in a given domain
 >   (when preview-tb-icon
 >     (let ((tb (cdadar (or (specifier-spec-list default-toolbar 
 > (current-buffer))
 >                        (specifier-spec-list default-toolbar 'global)))))

Very likely this can be simplified to

    (when preview-tb-icon
      (let ((tb (specifier-instance default-toolbar)))

I told you how to do what you said you wanted to do.  This is
probably good enough for practical purposes, and not the kind of thing
that would frighten small children.