Mercurial > emacs
changeset 3173:c3c1b1ceab05
(x_get_resource_string): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 27 May 1993 05:53:05 +0000 |
| parents | 2a484b449183 |
| children | 719776bc7f7d |
| files | src/xfns.c |
| diffstat | 1 files changed, 25 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfns.c Thu May 27 05:38:12 1993 +0000 +++ b/src/xfns.c Thu May 27 05:53:05 1993 +0000 @@ -1151,6 +1151,31 @@ return Qnil; } +/* Used when C code wants a resource value. */ + +char * +x_get_resource_string (attribute, class) + char *attribute, *class; +{ + register char *value; + char *name_key; + char *class_key; + + /* Allocate space for the components, the dots which separate them, + and the final '\0'. */ + name_key = (char *) alloca (XSTRING (Vinvocation_name)->size + + strlen (attribute) + 2); + class_key = (char *) alloca ((sizeof (EMACS_CLASS) - 1) + + strlen (class) + 2); + + sprintf (name_key, "%s.%s", + XSTRING (Vinvocation_name)->data, + attribute); + sprintf (class_key, "%s.%s", EMACS_CLASS, class); + + return x_get_string_resource (xrdb, name_key, class_key); +} + #else /* X10 */ DEFUN ("x-get-default", Fx_get_default, Sx_get_default, 1, 1, 0,