-# Copyright (C) 1992, 93, 94, 95, 96, 97, 1998, 2000, 01, 2004, 2005, 2006
-# Free Software Foundation, Inc.
+# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001,
+# 2004, 2005, 2006 Free Software Foundation, Inc.
#
# This file is part of GNU Emacs.
#
end
# Set up something to print out s-expressions.
+# We save and restore print_output_debug_flag to prevent the w32 port
+# from calling OutputDebugString, which causes GDB to display each
+# character twice (yuk!).
define pr
+ set $output_debug = print_output_debug_flag
+ set print_output_debug_flag = 0
set debug_print ($)
+ set print_output_debug_flag = $output_debug
end
document pr
Print the emacs s-expression which is $.
# Print out s-expressions
define pp
set $tmp = $arg0
+ set $output_debug = print_output_debug_flag
+ set print_output_debug_flag = 0
set safe_debug_print ($tmp)
+ set print_output_debug_flag = $output_debug
end
document pp
Print the argument as an emacs s-expression
set $tmp = $arg0
echo $arg0
printf " = "
+ set $output_debug = print_output_debug_flag
+ set print_output_debug_flag = 0
set safe_debug_print ($tmp)
+ set print_output_debug_flag = $output_debug
end
document pp1
Print the argument as an emacs s-expression
# Print value of lisp variable
define pv
set $tmp = "$arg0"
+ set $output_debug = print_output_debug_flag
+ set print_output_debug_flag = 0
set safe_debug_print ( find_symbol_value (intern ($tmp)))
+ set print_output_debug_flag = $output_debug
end
document pv
Print the value of the lisp variable given as argument.
set $tmp = "$arg0"
echo $arg0
printf " = "
+ set $output_debug = print_output_debug_flag
+ set print_output_debug_flag = 0
set safe_debug_print (find_symbol_value (intern ($tmp)))
+ set print_output_debug_flag = $output_debug
end
document pv1
Print the value of the lisp variable given as argument.
define xwindow
xgetptr $
print (struct window *) $ptr
- printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
+ set $window = (struct window *) $ptr
+ xgetint $window->total_cols
+ set $width=$int
+ xgetint $window->total_lines
+ set $height=$int
+ xgetint $window->left_col
+ set $left=$int
+ xgetint $window->top_line
+ set $top=$int
+ printf "%dx%d+%d+%d\n", $width, $height, $left, $top
end
document xwindow
Print $ as a window pointer, assuming it is an Emacs Lisp window value.