From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 12 Jul 1997 06:45:55 +0000 (+0000)
Subject: (Fdelete_backward_char): Convert Finsert_char argument to
X-Git-Tag: emacs-20.1~1198
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cac557491c0da35614534e3cb9623888f8f61b97;p=emacs.git

(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.
---

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)