Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
68e5a8a2
Commit
68e5a8a2
authored
Dec 30, 1993
by
Richard M. Stallman
Browse files
(read_from_minibuffer): Rename arg initial_input to initial_contents.
parent
c89164c5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
9 deletions
+9
-9
src/minibuf.c
src/minibuf.c
+9
-9
No files found.
src/minibuf.c
View file @
68e5a8a2
...
...
@@ -392,27 +392,27 @@ Fifth arg HIST, if non-nil, specifies a history list\n\
DEFUN
(
"read-from-minibuffer"
,
Fread_from_minibuffer
,
Sread_from_minibuffer
,
1
,
5
,
0
,
0
/* See immediately above */
)
(
prompt
,
initial_
input
,
keymap
,
read
,
hist
)
Lisp_Object
prompt
,
initial_
input
,
keymap
,
read
,
hist
;
(
prompt
,
initial_
contents
,
keymap
,
read
,
hist
)
Lisp_Object
prompt
,
initial_
contents
,
keymap
,
read
,
hist
;
{
int
pos
=
0
;
Lisp_Object
histvar
,
histpos
,
position
;
position
=
Qnil
;
CHECK_STRING
(
prompt
,
0
);
if
(
!
NILP
(
initial_
input
))
if
(
!
NILP
(
initial_
contents
))
{
if
(
XTYPE
(
initial_
input
)
==
Lisp_Cons
)
if
(
XTYPE
(
initial_
contents
)
==
Lisp_Cons
)
{
position
=
Fcdr
(
initial_
input
);
initial_
input
=
Fcar
(
initial_
input
);
position
=
Fcdr
(
initial_
contents
);
initial_
contents
=
Fcar
(
initial_
contents
);
}
CHECK_STRING
(
initial_
input
,
1
);
CHECK_STRING
(
initial_
contents
,
1
);
if
(
!
NILP
(
position
))
{
CHECK_NUMBER
(
position
,
0
);
/* Convert to distance from end of input. */
pos
=
XINT
(
position
)
-
1
-
XSTRING
(
initial_
input
)
->
size
;
pos
=
XINT
(
position
)
-
1
-
XSTRING
(
initial_
contents
)
->
size
;
}
}
...
...
@@ -436,7 +436,7 @@ DEFUN ("read-from-minibuffer", Fread_from_minibuffer, Sread_from_minibuffer, 1,
if
(
NILP
(
histpos
))
XFASTINT
(
histpos
)
=
0
;
return
read_minibuf
(
keymap
,
initial_
input
,
prompt
,
return
read_minibuf
(
keymap
,
initial_
contents
,
prompt
,
make_number
(
pos
),
!
NILP
(
read
),
histvar
,
histpos
);
}
...
...
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