diff options
author | Dmitry Antipov <[email protected]> | 2013-03-07 07:01:17 +0400 |
---|---|---|
committer | Dmitry Antipov <[email protected]> | 2013-03-07 07:01:17 +0400 |
commit | 3de717bdb483f7c6e23cd7701ee4ebd77eccb8b9 (patch) | |
tree | 28cb71a881d9a3801c36dd7de6be5f0d2bcaf776 /src/xfns.c | |
parent | ab89e9f9a594c30ce4c04e6d502bee3beaefe908 (diff) |
* lisp.h (list2i, list3i): New functions.
(list4i): Move from window.c and make LISP_INLINE.
* editfns.c (make_lisp_time):
* fns.c (Flocale_info):
* keyboard.c (parse_modifiers):
* xterm.c (x_ewmh_activate_frame): Use list2i.
* instel.c (signal_after_change):
* nsfns.m (Fx_server_version, Fxw_color_values):
* w32fns.c (Fxw_color_values, Fx_server_version):
* xfns.c (Fxw_color_values, Fx_server_version): Use list3i.
* fileio.c (Fvisited_file_modtime):
* nsfns.m (Fns_display_usable_bounds):
* w32.c (ltime): Use list4i.
Diffstat (limited to 'src/xfns.c')
-rw-r--r-- | src/xfns.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/xfns.c b/src/xfns.c index f01983fea4..5c93b8ef4d 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -3539,9 +3539,7 @@ DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0, CHECK_STRING (color); if (x_defined_color (f, SSDATA (color), &foo, 0)) - return list3 (make_number (foo.red), - make_number (foo.green), - make_number (foo.blue)); + return list3i (foo.red, foo.green, foo.blue); else return Qnil; } @@ -3703,9 +3701,8 @@ If omitted or nil, that stands for the selected frame's display. */) struct x_display_info *dpyinfo = check_x_display_info (terminal); Display *dpy = dpyinfo->display; - return Fcons (make_number (ProtocolVersion (dpy)), - Fcons (make_number (ProtocolRevision (dpy)), - Fcons (make_number (VendorRelease (dpy)), Qnil))); + return list3i (ProtocolVersion (dpy), ProtocolRevision (dpy), + VendorRelease (dpy)); } DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0, |