Mercurial > emacs

diff src/cmds.c @ 18748:6897bd6a1c8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Jul 1997 06:45:55 +0000
parents a01702d67089
children 498c1590b4a8
line wrap: on
line diff
--- a/src/cmds.c	Sat Jul 12 06:45:09 1997 +0000
+++ b/src/cmds.c	Sat Jul 12 06:45:55 1997 +0000
@@ -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 @@
 
       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 @@
 		 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)