From fc351d2f65a539eb1f061ad1e9e104c67b822651 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 22 Dec 1998 06:06:48 +0000 Subject: [PATCH] (Fread_char): Change the meaning of the second argument. (Fread_event): Likewise. (Fread_char_exclusive): Likewise. --- src/lread.c | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/src/lread.c b/src/lread.c index 84072550440..f173205f94d 100644 --- a/src/lread.c +++ b/src/lread.c @@ -510,27 +510,29 @@ If you want to read non-character events, or ignore them, call\n\ `read-event' or `read-char-exclusive' instead.\n\ \n\ If the optional argument PROMPT is non-nil, display that as a prompt.\n\ -If the optional argument SUPPRESS-INPUT-METHOD is non-nil,\n\ -disable input method processing for this character.") - (prompt, suppress_input_method) - Lisp_Object prompt, suppress_input_method; +If the optional argument INHERIT-INPUT-METHOD is non-nil and some\n\ +input method is turned on in the current buffer, that input method\n\ +is used for reading a character.") + (prompt, inherit_input_method) + Lisp_Object prompt, inherit_input_method; { if (! NILP (prompt)) message_with_string ("%s", prompt, 0); - return read_filtered_event (1, 1, 1, NILP (suppress_input_method)); + return read_filtered_event (1, 1, 1, ! NILP (inherit_input_method)); } DEFUN ("read-event", Fread_event, Sread_event, 0, 2, 0, "Read an event object from the input stream.\n\ If the optional argument PROMPT is non-nil, display that as a prompt.\n\ -If the optional argument SUPPRESS-INPUT-METHOD is non-nil,\n\ -disable input method processing for this character.") - (prompt, suppress_input_method) - Lisp_Object prompt, suppress_input_method; +If the optional argument INHERIT-INPUT-METHOD is non-nil and some\n\ +input method is turned on in the current buffer, that input method\n\ +is used for reading a character.") + (prompt, inherit_input_method) + Lisp_Object prompt, inherit_input_method; { if (! NILP (prompt)) message_with_string ("%s", prompt, 0); - return read_filtered_event (0, 0, 0, NILP (suppress_input_method)); + return read_filtered_event (0, 0, 0, ! NILP (inherit_input_method)); } DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 2, 0, @@ -538,14 +540,15 @@ DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 2, It is returned as a number. Non-character events are ignored.\n\ \n\ If the optional argument PROMPT is non-nil, display that as a prompt.\n\ -If the optional argument SUPPRESS-INPUT-METHOD is non-nil,\n\ -disable input method processing for this character.") - (prompt, suppress_input_method) - Lisp_Object prompt, suppress_input_method; +If the optional argument INHERIT-INPUT-METHOD is non-nil and some\n\ +input method is turned on in the current buffer, that input method\n\ +is used for reading a character.") + (prompt, inherit_input_method) + Lisp_Object prompt, inherit_input_method; { if (! NILP (prompt)) message_with_string ("%s", prompt, 0); - return read_filtered_event (1, 1, 0, NILP (suppress_input_method)); + return read_filtered_event (1, 1, 0, ! NILP (inherit_input_method)); } DEFUN ("get-file-char", Fget_file_char, Sget_file_char, 0, 0, 0, -- 2.39.2