* xterm.c (XTread_socket): Turn off ControlMask for XLookupString.

[gnu-emacs] / src / mocklisp.c

diff --git a/src/mocklisp.c b/src/mocklisp.c
index 353d4da0e43895208b4064d2ff7754d38ac399a2..cc3396152c091d92a9d20c4099c0d3825219fa33 100644 (file)
--- a/src/mocklisp.c
+++ b/src/mocklisp.c
@@ -194,7 +194,7 @@ If either FROM or LENGTH is negative, the length of STRING is added to it.")
   XSETINT (to, XINT (to) + XINT (from));
   return Fsubstring (string, from, to);
 }
-#endif NOTDEF
+#endif /* 0 */
 DEFUN ("insert-string", Finsert_string, Sinsert_string, 0, MANY, 0,
   "Mocklisp-compatibility insert function.\n\
 Like the function `insert' except that any argument that is a number\n\
@@ -211,7 +211,7 @@ is converted into a string by expressing it in decimal.")
       tem = args[argnum];
     retry:
       if (XTYPE (tem) == Lisp_Int)
-       tem = Fint_to_string (tem);
+       tem = Fnumber_to_string (tem);
       if (XTYPE (tem) == Lisp_String)
        insert1 (tem);
       else