diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-12 06:45:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-12 06:45:55 +0000 |
| commit | cac557491c0da35614534e3cb9623888f8f61b97 (patch) | |
| tree | 5d97f51a1a7f8302be21fc53f5c6f3d737f94a4f /src/cmds.c | |
| parent | 5d632ccf24ce7fa44cd3ff8230bcc20dc4623506 (diff) | |
| download | emacs-cac557491c0da35614534e3cb9623888f8f61b97.tar.gz | |
(Fdelete_backward_char): Convert Finsert_char argument to
Lisp_Integer and add missing argument.
(internal_self_insert): Convert Fmove_to_column argument to
Lisp_Integer and add missing argument.
Diffstat (limited to 'src/cmds.c')
| -rw-r--r-- | src/cmds.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/cmds.c b/src/cmds.c index 00a6e7687f8..68a6726dbb1 100644 --- a/src/cmds.c +++ b/src/cmds.c @@ -1,5 +1,5 @@ /* Simple built-in editing commands. - Copyright (C) 1985, 93, 94, 95, 1996 Free Software Foundation, Inc. + Copyright (C) 1985, 93, 94, 95, 96, 1997 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -285,7 +285,7 @@ N was explicitly specified.") value = Fdelete_char (make_number (-XINT (n)), killflag); i = column - current_column (); - Finsert_char (make_number (' '), i); + Finsert_char (make_number (' '), make_number (i), Qnil); SET_PT (PT - i); } else @@ -419,7 +419,8 @@ internal_self_insert (c, noautofill) if the TARGET_CLM is middle of multi-column character. In that case, the new point is set after that character. */ - int actual_clm = XFASTINT (Fmove_to_column (target_clm)); + int actual_clm + = XFASTINT (Fmove_to_column (make_number (target_clm), Qnil)); del_range (pos, PT); if (actual_clm > target_clm) |