diff options
| author | Richard M. Stallman | 1997-07-12 06:45:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-12 06:45:55 +0000 |
| commit | cac557491c0da35614534e3cb9623888f8f61b97 (patch) | |
| tree | 5d97f51a1a7f8302be21fc53f5c6f3d737f94a4f /src | |
| parent | 5d632ccf24ce7fa44cd3ff8230bcc20dc4623506 (diff) | |
| download | emacs-cac557491c0da35614534e3cb9623888f8f61b97.tar.gz emacs-cac557491c0da35614534e3cb9623888f8f61b97.zip | |
(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')
| -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 @@ | |||
| 1 | /* Simple built-in editing commands. | 1 | /* Simple built-in editing commands. |
| 2 | Copyright (C) 1985, 93, 94, 95, 1996 Free Software Foundation, Inc. | 2 | Copyright (C) 1985, 93, 94, 95, 96, 1997 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
| 5 | 5 | ||
| @@ -285,7 +285,7 @@ N was explicitly specified.") | |||
| 285 | 285 | ||
| 286 | value = Fdelete_char (make_number (-XINT (n)), killflag); | 286 | value = Fdelete_char (make_number (-XINT (n)), killflag); |
| 287 | i = column - current_column (); | 287 | i = column - current_column (); |
| 288 | Finsert_char (make_number (' '), i); | 288 | Finsert_char (make_number (' '), make_number (i), Qnil); |
| 289 | SET_PT (PT - i); | 289 | SET_PT (PT - i); |
| 290 | } | 290 | } |
| 291 | else | 291 | else |
| @@ -419,7 +419,8 @@ internal_self_insert (c, noautofill) | |||
| 419 | if the TARGET_CLM is middle of multi-column | 419 | if the TARGET_CLM is middle of multi-column |
| 420 | character. In that case, the new point is set after | 420 | character. In that case, the new point is set after |
| 421 | that character. */ | 421 | that character. */ |
| 422 | int actual_clm = XFASTINT (Fmove_to_column (target_clm)); | 422 | int actual_clm |
| 423 | = XFASTINT (Fmove_to_column (make_number (target_clm), Qnil)); | ||
| 423 | 424 | ||
| 424 | del_range (pos, PT); | 425 | del_range (pos, PT); |
| 425 | if (actual_clm > target_clm) | 426 | if (actual_clm > target_clm) |