(X_WINDOWS_SUPPORT): Don't include term/x-win.

[bpt/emacs.git] / src / mocklisp.c

diff --git a/src/mocklisp.c b/src/mocklisp.c
index 353d4da..5f9d2df 100644 (file)
--- a/src/mocklisp.c
+++ b/src/mocklisp.c
@@ -20,7 +20,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 /* Compatibility for mocklisp */
 
-#include "config.h"
+#include <config.h>
 #include "lisp.h"
 #include "buffer.h"
 
@@ -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