Richard Klinda <ignotus@xxxxxxxxxxx> writes:
>>>>>> Regarding 'Re: x-border-width => 0 for XEmacs frames'; Alexey Mikhailov
>>>>>> adds:
>
>
> > (dolist (cl (xwem-clients-list))
> > (xwem-client-set-property cl 'x-border-width 0))
>
> > Will it solve your problem ?
>
> Oh, I only wanted to change the XEmacs frames, you gave me an idea so I
> come up with this:
>
> (dolist (cl (xwem-clients-list))
> (when (xwem-cl-match-p cl '((name "^emacs")))
Hehe, a better way is to match (S)XEmacs frames using this match-spec
(application "xemacs")
It will avoid special emacs frames, it also will avoid emacs frame
used for xwem minibuffer, it will also avoid ratanot emacs frames,
i.e. it will match only regular (S)XEmacs frames.
BTW: `xwem-clients-list' accepts predicate function as argument, so to
get list of all (S)XEmacs frames use something like:
(xwem-clients-list (lambda (cl)
(xwem-cl-match-p
cl '((application "xemacs")))))
But note - it will match any emacs frames, including emacs frames from
non-xwem emacs application (if any), to find a list of emacs frames
that are born from emacs application which runs xwem, use something
like:
(xwem-clients-list 'xwem-misc-find-emacs-frame)
--
XWEM - (S)XEmacs With Extra Muscle.
|