# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001,
-# 2004, 2005, 2006 Free Software Foundation, Inc.
+# 2002, 2003, 2004, 2005, 2006, 2007 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
-# the Free Software Foundation; either version 2, or (at your option)
+# the Free Software Foundation; either version 3, or (at your option)
# any later version.
#
# GNU Emacs is distributed in the hope that it will be useful,
printf " SZ=%d\n", $t->gap_size
end
document ppt
-Print point beg end narrow and gap for current buffer.
+Print current buffer's point and boundaries.
+Prints values of point, beg, end, narrow, and gap for current buffer.
end
# Print out iterator given as first arg
end
end
document xtype
-Print the type of $ assuming it is an Emacs Lisp value.
+Print the type of $, assuming it is an Emacs Lisp value.
If the first type printed is Lisp_Vector or Lisp_Misc,
a second line gives the more precise type.
end
echo \n
end
document xmisctype
-Print the specific type of $ assuming it is some misc type.
+Assume that $ is some misc type and print its specific type.
end
define xint
print $int
end
document xint
-Print $ assuming it is an Emacs Lisp integer. This gets the sign right.
+Print $ as an Emacs Lisp integer. This gets the sign right.
end
define xptr
print (void *) $ptr
end
document xptr
-Print the pointer portion of $ assuming it is an Emacs Lisp value.
+Print the pointer portion of an Emacs Lisp value in $.
end
define xmarker
print (struct Lisp_Marker *) $ptr
end
document xmarker
-Print $ as a marker pointer assuming it is an Emacs Lisp marker value.
+Print $ as a marker pointer.
+This command assumes that $ is an Emacs Lisp marker value.
end
define xoverlay
echo \n
end
document xframe
-Print $ as a frame pointer assuming it is an Emacs Lisp frame value.
+Print $ as a frame pointer.
+This command assumes $ is an Emacs Lisp frame value.
end
define xcompiled
echo \n
end
document xbuffer
-Set $ as a buffer pointer assuming it is an Emacs Lisp buffer value.
-Print the name of the buffer.
+Set $ as a buffer pointer and the name of the buffer.
+This command assumes $ is an Emacs Lisp buffer value.
end
define xhashtable
echo \n
end
document xcons
-Print the contents of $ assuming it is an Emacs Lisp cons.
+Print the contents of $ as an Emacs Lisp cons.
end
define nextcons
print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->car : 0)
end
document xcar
-Print the car of $ assuming it is an Emacs Lisp pair.
+Assume that $ is an Emacs Lisp pair and print its car.
end
define xcdr
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.
+Assume that $ is an Emacs Lisp pair and print its cdr.
end
define xlist
end
define xprintstr
- set $data = $arg0->data
+ set $data = (char *) $arg0->data
output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? $arg0->size & ~gdb_array_mark_flag : $arg0->size_byte)
end
show environment DISPLAY
show environment TERM
-set args -geometry 80x40+0+0
+#set args -geometry 80x40+0+0
# People get bothered when they see messages about non-existent functions...
xgetptr Vsystem_type
tbreak init_sys_modes
commands
silent
- xgetptr Vwindow_system
+ xgetptr Vinitial_window_system
set $tem = (struct Lisp_Symbol *) $ptr
xgetptr $tem->xname
set $tem = (struct Lisp_String *) $ptr