Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fc351d2f
Commit
fc351d2f
authored
Dec 22, 1998
by
Kenichi Handa
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fread_char): Change the meaning of the second argument.
(Fread_event): Likewise. (Fread_char_exclusive): Likewise.
parent
e6e114f2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
15 deletions
+18
-15
src/lread.c
src/lread.c
+18
-15
No files found.
src/lread.c
View file @
fc351d2f
...
...
@@ -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
,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment