From: Fabrice POPINEAU <popineau@ese-metz.fr>
Cc: ding@gnus.org
Subject: Smilies under NT [was Re: select articles by field]
Date: 17 Jun 1999 11:43:03 +0200 [thread overview]
Message-ID: <un1xz40yg.fsf_-_@ese-metz.fr> (raw)
In-Reply-To: Norbert Koch's message of "16 Jun 1999 18:07:39 +0200"
Norbert Koch <n.koch@eai-delta.de> writes:
> Right, but setting this doesn't change very much does it? I tried
> something along these lines, but got stuck with problems in
> make-annotation and friends, IIRC.
Add this one and it works ok :
(defun smiley-create-glyph (smiley pixmap)
(and
smiley-running-xemacs
(or
(cdr-safe (assoc pixmap smiley-glyph-cache))
(let* ((xpm-color-symbols
(and (featurep 'xpm)
(append `(("flesh" ,smiley-flesh-color)
("features" ,smiley-features-color)
("tongue" ,smiley-tongue-color))
xpm-color-symbols)))
(glyph (make-glyph
(list
(cons 'x (expand-file-name pixmap smiley-data-directory))
(cons 'mswindows (expand-file-name pixmap smiley-data-directory))
(cons 'tty smiley)))))
(setq smiley-glyph-cache (cons (cons pixmap glyph) smiley-glyph-cache))
(set-glyph-face glyph 'default)
glyph))))
'make-glyph' was called only for x, not for mswindows -> empty glyphs.
--
Fabrice
next prev parent reply other threads:[~1999-06-17 9:43 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-06-16 9:58 select articles by field Fabrice POPINEAU
1999-06-16 10:36 ` Tibor Simko
1999-06-17 0:28 ` Harry Putnam
1999-06-16 13:12 ` Michael Klingbeil
1999-06-16 15:50 ` Fabrice POPINEAU
1999-06-16 16:07 ` Norbert Koch
1999-06-17 9:43 ` Fabrice POPINEAU [this message]
1999-06-17 11:50 ` Smilies under NT [was Re: select articles by field] Norbert Koch
1999-07-03 9:46 ` Lars Magne Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=un1xz40yg.fsf_-_@ese-metz.fr \
--to=popineau@ese-metz.fr \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).