Mercurial > hg > xemacs-beta
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), |