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
dc330139
Commit
dc330139
authored
Jan 01, 1998
by
Richard M. Stallman
Browse files
(Fcall_interactively) <'d', 'r'>: Use set_marker_both.
parent
d8a2934e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
7 deletions
+7
-7
src/callint.c
src/callint.c
+7
-7
No files found.
src/callint.c
View file @
dc330139
/* Call a Lisp function interactively.
Copyright (C) 1985,
19
86,
19
93,
19
94, 199
5
Free Software Foundation, Inc.
Copyright (C) 1985, 86, 93, 94,
95,
199
7
Free Software Foundation, Inc.
This file is part of GNU Emacs.
...
...
@@ -442,9 +442,9 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
corresponding to the Lisp strings in visargs. */
for
(
j
=
1
;
j
<
i
;
j
++
)
argstrings
[
j
]
=
EQ
(
visargs
[
j
],
Qnil
)
?
(
unsigned
char
*
)
""
:
XSTRING
(
visargs
[
j
])
->
data
;
=
(
EQ
(
visargs
[
j
],
Qnil
)
?
(
unsigned
char
*
)
""
:
XSTRING
(
visargs
[
j
])
->
data
)
;
/* Process the format-string in prompt1, putting the output
into callint_message. Make callint_message bigger if necessary.
...
...
@@ -454,7 +454,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
{
int
nchars
=
doprnt
(
callint_message
,
callint_message_size
,
prompt1
,
(
char
*
)
0
,
j
-
1
,
argstrings
+
1
);
j
-
1
,
(
char
**
)
argstrings
+
1
);
if
(
nchars
<
callint_message_size
)
break
;
callint_message_size
*=
2
;
...
...
@@ -508,7 +508,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
break
;
case
'd'
:
/* Value of point. Does not do I/O. */
F
set_marker
(
point_marker
,
make_number
(
PT
)
,
Qnil
);
set_marker
_both
(
point_marker
,
Qnil
,
PT
,
PT_BYTE
);
args
[
i
]
=
point_marker
;
/* visargs[i] = Qnil; */
varies
[
i
]
=
1
;
...
...
@@ -631,7 +631,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
case
'r'
:
/* Region, point and mark as 2 args. */
check_mark
();
F
set_marker
(
point_marker
,
make_number
(
PT
)
,
Qnil
);
set_marker
_both
(
point_marker
,
Qnil
,
PT
,
PT_BYTE
);
/* visargs[i+1] = Qnil; */
foo
=
marker_position
(
current_buffer
->
mark
);
/* visargs[i] = Qnil; */
...
...
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