From: "Stephen J. Turnbull" <stephen@xemacs.org>
Cc: xemacs-beta@xemacs.org, emacs-devel@gnu.org
Subject: Re: intern-soft, find-face/get-face, and facep for determining faces' definedness
Date: Tue, 02 Nov 2004 15:14:08 +0900 [thread overview]
Message-ID: <87k6t4rd5b.fsf@tleepslib.sk.tsukuba.ac.jp> (raw)
In-Reply-To: <0whwtx5meng.fsf@rescomp.Stanford.EDU.i-did-not-set--mail-host-address--so-tickle-me> (Brian Palmer's message of "Mon, 01 Nov 2004 13:40:35 -0800")
>>>>> "Brian" == Brian Palmer <bpalmer@rescomp.stanford.edu> writes:
Brian> In vc.el, vc-annotate-lines, the following binding is established:
Brian> (face (or (intern-soft face-name)
[...]
Brian> A fix would be in emacs to use (facep face-name) and [...] xemacs to use (find-face
Brian> face-name), instead.
This looks correct.
Brian> Xemacs developers, is there any reason that xemacs's facep
Brian> should not be extended to take either face objects or names
Brian> (so, for example, (facep 'bold) => t )?
Yes, there is. That's what `find-face' is for. We'd still probably
want a way to distinguish between face names and face objects, and
proving that (a) we don't currently have any code that depends on
`facep''s behavior, and (b) that we'd never want it, is more work than
this is worth.
Brian> Or could find-face/get-face be implemented for emacs? (They
Brian> seem like probably useful functions to me).
Your version wasn't quite right; it's
(defalias 'find-face 'facep)
(defun get-face (face-or-name)
(or (find-face face-or-name)
(error "Face %s doesn't exist" face-or-name)))
--
Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Ask not how you can "do" free software business;
ask what your business can "do for" free software.
next prev parent reply other threads:[~2004-11-02 6:14 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-11-01 21:40 intern-soft, find-face/get-face, and facep for determining faces' definedness Brian Palmer
2004-11-02 6:14 ` Stephen J. Turnbull [this message]
2004-11-02 7:28 ` Brian Palmer
2004-11-02 7:45 ` Miles Bader
2004-11-02 8:48 ` Brian Palmer
2004-11-02 9:08 ` Miles Bader
2004-11-02 9:21 ` Brian Palmer
2004-11-02 9:50 ` Miles Bader
2004-11-02 12:06 ` Stephen J. Turnbull
2004-11-02 22:20 ` Miles Bader
2004-11-06 9:31 ` Oliver Scholz
2004-11-02 11:07 ` Stephen J. Turnbull
2004-11-02 12:01 ` Stefan
2004-11-02 22:23 ` Miles Bader
2004-11-03 12:45 ` Richard Stallman
2004-11-03 14:15 ` Stefan Monnier
2004-11-03 15:01 ` Zajcev Evgeny
2004-11-03 15:20 ` Andreas Schwab
2004-11-03 15:54 ` Zajcev Evgeny
2004-11-04 9:28 ` Stephen J. Turnbull
2004-11-03 15:48 ` Stefan Monnier
2004-11-04 3:41 ` Stephen J. Turnbull
2004-11-05 7:55 ` Stefan
2004-11-09 14:41 ` Stephen J. Turnbull
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=87k6t4rd5b.fsf@tleepslib.sk.tsukuba.ac.jp \
--to=stephen@xemacs.org \
--cc=emacs-devel@gnu.org \
--cc=xemacs-beta@xemacs.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.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.