comparison src/events.c @ 2862:b95fe16005fd

[xemacs-hg @ 2005-07-17 20:08:40 by aidan] Restore the last argument to event-to-character, document that it's unused.
author aidan
date Sun, 17 Jul 2005 20:08:48 +0000
parents ade0c13d91a3
children facf3239ba30
comparison
equal deleted inserted replaced
2861:cf9f69706740 2862:b95fe16005fd
1383 c |= 0200; 1383 c |= 0200;
1384 } 1384 }
1385 return c; 1385 return c;
1386 } 1386 }
1387 1387
1388 DEFUN ("event-to-character", Fevent_to_character, 1, 3, 0, /* 1388 DEFUN ("event-to-character", Fevent_to_character, 1, 4, 0, /*
1389 Return the closest character approximation to the given event object. 1389 Return the closest character approximation to the given event object.
1390 If the event isn't a keypress, this returns nil. 1390 If the event isn't a keypress, this returns nil.
1391 If the ALLOW-EXTRA-MODIFIERS argument is non-nil, then this is lenient in 1391 If the ALLOW-EXTRA-MODIFIERS argument is non-nil, then this is lenient in
1392 its translation; it will ignore modifier keys other than control and meta, 1392 its translation; it will ignore modifier keys other than control and meta,
1393 and will ignore the shift modifier on those characters which have no 1393 and will ignore the shift modifier on those characters which have no
1396 If the ALLOW-META argument is non-nil, then the Meta modifier will be 1396 If the ALLOW-META argument is non-nil, then the Meta modifier will be
1397 represented by turning on the high bit of the byte returned; otherwise, nil 1397 represented by turning on the high bit of the byte returned; otherwise, nil
1398 will be returned for events containing the Meta modifier. 1398 will be returned for events containing the Meta modifier.
1399 Note that ALLOW-META may cause ambiguity between meta characters and 1399 Note that ALLOW-META may cause ambiguity between meta characters and
1400 Latin-1 characters. 1400 Latin-1 characters.
1401 */ 1401 ALLOW-NON-ASCII is unused, and retained for compatibility.
1402 (event, allow_extra_modifiers, allow_meta)) 1402 */
1403 (event, allow_extra_modifiers, allow_meta, UNUSED(allow_non_ascii)))
1403 { 1404 {
1404 Ichar c; 1405 Ichar c;
1405 CHECK_LIVE_EVENT (event); 1406 CHECK_LIVE_EVENT (event);
1406 c = event_to_character (event, 1407 c = event_to_character (event,
1407 !NILP (allow_extra_modifiers), 1408 !NILP (allow_extra_modifiers),