Mercurial > hg > xemacs-beta

comparison src/device.c @ 3025:facf3239ba30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-25 11:16:19 by ben] rename new->new_, convert 'foo to `foo' EmacsFrame.c, ExternalClient.c, ExternalShell.c, chartab.c, cmdloop.c, compiler.h, console.c, database.c, device-msw.c, device-x.c, device.c, doc.c, dragdrop.c, eval.c, event-msw.c, event-stream.c, events.c, extents.c, file-coding.c, fns.c, frame-tty.c, frame.c, gpmevent.c, gutter.c, hash.c, imgproc.c, indent.c, keymap.c, lisp-union.h, macros.c, malloc.c, marker.c, menubar-x.c, menubar.c, mule-charset.c, number.c, process.c, profile.h, ralloc.c, redisplay.c, select-common.h, select.c, syntax.c, sysfile.h, sysproc.h, systime.h, syswindows.h, toolbar.c, tooltalk.c, tparam.c, unexaix.c, unexalpha.c, unexconvex.c, unexec.c, unexhp9k800.c, unexmips.c, unicode.c, window.c: new -> new_. 'foo -> `foo'. lwlib-internal.h: redo assert macros to follow lisp.h and not trigger warnings. lwlib.c, xlwtabs.c: new -> new_.
author ben
date Tue, 25 Oct 2005 11:16:49 +0000
parents 1e7cc382eb16
children 141c2920ea48 3742ea8250b5
comparison
equal deleted inserted replaced
3024:b7f26b2f78bd 3025:facf3239ba30
167 return !NILP (memq_no_quit (class_, Vdevice_class_list)); 167 return !NILP (memq_no_quit (class_, Vdevice_class_list));
168 } 168 }
169 169
170 DEFUN ("valid-device-class-p", Fvalid_device_class_p, 1, 1, 0, /* 170 DEFUN ("valid-device-class-p", Fvalid_device_class_p, 1, 1, 0, /*
171 Given a DEVICE-CLASS, return t if it is valid. 171 Given a DEVICE-CLASS, return t if it is valid.
172 Valid classes are 'color, 'grayscale, and 'mono. 172 Valid classes are `color', `grayscale', and `mono'.
173 */ 173 */
174 (device_class)) 174 (device_class))
175 { 175 {
176 return valid_device_class_p (device_class) ? Qt : Qnil; 176 return valid_device_class_p (device_class) ? Qt : Qnil;
177 } 177 }
971 return Fcopy_sequence (DEVICE_FRAME_LIST (decode_device (device))); 971 return Fcopy_sequence (DEVICE_FRAME_LIST (decode_device (device)));
972 } 972 }
973 973
974 DEFUN ("device-class", Fdevice_class, 0, 1, 0, /* 974 DEFUN ("device-class", Fdevice_class, 0, 1, 0, /*
975 Return the class (color behavior) of DEVICE. 975 Return the class (color behavior) of DEVICE.
976 This will be one of 'color, 'grayscale, or 'mono. 976 This will be one of `color', `grayscale', or `mono'.
977 */ 977 */
978 (device)) 978 (device))
979 { 979 {
980 return DEVICE_CLASS (decode_device (device)); 980 return DEVICE_CLASS (decode_device (device));
981 } 981 }
982 982
983 DEFUN ("set-device-class", Fset_device_class, 2, 2, 0, /* 983 DEFUN ("set-device-class", Fset_device_class, 2, 2, 0, /*
984 Set the class (color behavior) of DEVICE. 984 Set the class (color behavior) of DEVICE.
985 CLASS should be one of 'color, 'grayscale, or 'mono. 985 CLASS should be one of `color', `grayscale', or `mono'.
986 This is only allowed on device such as TTY devices, where the color 986 This is only allowed on device such as TTY devices, where the color
987 behavior cannot necessarily be determined automatically. 987 behavior cannot necessarily be determined automatically.
988 */ 988 */
989 (device, class_)) 989 (device, class_))
990 { 990 {
1292 assert (meth); 1292 assert (meth);
1293 return CONMETH_IMPL_FLAG (meth, XDEVIMPF_PIXEL_GEOMETRY); 1293 return CONMETH_IMPL_FLAG (meth, XDEVIMPF_PIXEL_GEOMETRY);
1294 } 1294 }
1295 1295
1296 DEFUN ("domain-device-type", Fdomain_device_type, 0, 1, 0, /* 1296 DEFUN ("domain-device-type", Fdomain_device_type, 0, 1, 0, /*
1297 Return the device type symbol for a DOMAIN, e.g. 'x or 'tty. 1297 Return the device type symbol for a DOMAIN, e.g. `x' or `tty'.
1298 DOMAIN can be either a window, frame, device or console. 1298 DOMAIN can be either a window, frame, device or console.
1299 */ 1299 */
1300 (domain)) 1300 (domain))
1301 { 1301 {
1302 if (!WINDOWP (domain) && !FRAMEP (domain) 1302 if (!WINDOWP (domain) && !FRAMEP (domain)