-# Copyright (C) 1992, 93, 94, 95, 96, 97, 1998, 2000, 01, 2004
+# Copyright (C) 1992, 93, 94, 95, 96, 97, 1998, 2000, 01, 2004, 2005
# Free Software Foundation, Inc.
#
# This file is part of GNU Emacs.
end
define nextcons
- p $.cdr
+ p $.u.cdr
xcons
end
document nextcons
define xcdr
xgetptr $
xgettype $
- print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->cdr : 0)
+ print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->u.cdr : 0)
end
document xcdr
Print the cdr of $, assuming it is an Emacs Lisp pair.
define xfloat
xgetptr $
- print ((struct Lisp_Float *) $ptr)->data
+ print ((struct Lisp_Float *) $ptr)->u.data
end
document xfloat
Print $ assuming it is a lisp floating-point number.
show environment TERM
set args -geometry 80x40+0+0
+# People get bothered when they see messages about non-existent functions...
+echo \n
+echo If you see messages below about functions not being defined,\n
+echo don\'t worry about them. Nothing is wrong.\n
+echo \n
+
# Don't let abort actually run, as it will make
# stdio stop working and therefore the `pr' command above as well.
break abort
+# The MS-Windows build replaces abort with its own function.
+break w32_abort
+
# If we are running in synchronous mode, we want a chance to look around
# before Emacs exits. Perhaps we should put the break somewhere else
# instead...