Mercurial > emacs
changeset 20552:1a0cb8cd5615
(Fcall_interactively) <'d', 'r'>: Use set_marker_both.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 Jan 1998 06:47:25 +0000 |
| parents | 5f17380c85f1 |
| children | a49deda9f5e6 |
| files | src/callint.c |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callint.c Thu Jan 01 06:45:08 1998 +0000 +++ b/src/callint.c Thu Jan 01 06:47:25 1998 +0000 @@ -1,5 +1,5 @@ /* Call a Lisp function interactively. - Copyright (C) 1985, 1986, 1993, 1994, 1995 Free Software Foundation, Inc. + Copyright (C) 1985, 86, 93, 94, 95, 1997 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -442,9 +442,9 @@ 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 @@ { 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 @@ break; case 'd': /* Value of point. Does not do I/O. */ - Fset_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 @@ case 'r': /* Region, point and mark as 2 args. */ check_mark (); - Fset_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; */