HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(Fsplit_window): Treat width just like height;
[bpt/emacs.git]
/
src
/
mocklisp.c
diff --git
a/src/mocklisp.c
b/src/mocklisp.c
index
cc33961
..
ad6ae99
100644
(file)
--- a/
src/mocklisp.c
+++ b/
src/mocklisp.c
@@
-1,11
+1,11
@@
/* Mocklisp compatibility functions for GNU Emacs Lisp interpreter.
/* Mocklisp compatibility functions for GNU Emacs Lisp interpreter.
- Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+ Copyright (C) 1985, 1986
, 1995
Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version
1
, or (at your option)
+the Free Software Foundation; either version
2
, or (at your option)
any later version.
GNU Emacs is distributed in the hope that it will be useful,
any later version.
GNU Emacs is distributed in the hope that it will be useful,
@@
-15,12
+15,13
@@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
/* Compatibility for mocklisp */
/* Compatibility for mocklisp */
-#include
"config.h"
+#include
<config.h>
#include "lisp.h"
#include "buffer.h"
#include "lisp.h"
#include "buffer.h"
@@
-210,9
+211,9
@@
is converted into a string by expressing it in decimal.")
{
tem = args[argnum];
retry:
{
tem = args[argnum];
retry:
- if (
XTYPE (tem) == Lisp_Int
)
+ if (
INTEGERP (tem)
)
tem = Fnumber_to_string (tem);
tem = Fnumber_to_string (tem);
- if (
XTYPE (tem) == Lisp_String
)
+ if (
STRINGP (tem)
)
insert1 (tem);
else
{
insert1 (tem);
else
{