Mercurial > emacs
changeset 2898:15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 19 May 1993 14:26:34 +0000 |
| parents | a2c9db9253e1 |
| children | 462fc7e81e6e |
| files | src/keyboard.c |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Wed May 19 06:13:00 1993 +0000 +++ b/src/keyboard.c Wed May 19 14:26:34 1993 +0000 @@ -4496,7 +4496,8 @@ Third arg META t means accept 8-bit input (for a Meta key).\n\ META nil means ignore the top bit, on the assumption it is parity.\n\ Otherwise, accept 8-bit input and don't use the top bit for Meta.\n\ -Optional fourth arg QUIT if non-nil specifies character to use for quitting.") +Optional fourth arg QUIT if non-nil specifies character to use for quitting.\n\ +See also `current-input-mode'.") (interrupt, flow, meta, quit) Lisp_Object interrupt, flow, meta, quit; { @@ -4543,18 +4544,20 @@ nil, Emacs is using CBREAK mode.\n\ FLOW is non-nil if Emacs uses ^S/^Q flow control for output to the\n\ terminal; this does not apply if Emacs uses interrupt-driven input.\n\ - META is non-nil if Emacs is accepting 8-bit input; otherwise, Emacs\n\ - clears the eighth bit of every input character.\n\ + META is t if accepting 8-bit input with 8th bit as Meta flag.\n\ + META nil means ignoring the top bit, on the assumption it is parity.\n\ + META is neither t nor nil if accepting 8-bit input and using\n\ + all 8 bits as the character code.\n\ QUIT is the character Emacs currently uses to quit.\n\ The elements of this list correspond to the arguments of\n\ -set-input-mode.") +`set-input-mode'.") () { Lisp_Object val[4]; val[0] = interrupt_input ? Qt : Qnil; val[1] = flow_control ? Qt : Qnil; - val[2] = meta_key ? Qt : Qnil; + val[2] = meta_key == 2 ? make_number (0) : meta_key == 1 ? Qt : Qnil; XSETINT (val[3], quit_char); return Flist (val, sizeof (val) / sizeof (val[0]));