[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/.gdbinit
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/src/.gdbinit |
Date: |
Sat, 25 Mar 2006 18:00:51 +0000 |
Index: emacs/src/.gdbinit
diff -u emacs/src/.gdbinit:1.82 emacs/src/.gdbinit:1.83
--- emacs/src/.gdbinit:1.82 Mon Feb 13 18:45:39 2006
+++ emacs/src/.gdbinit Sat Mar 25 18:00:51 2006
@@ -58,8 +58,14 @@
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 $.
@@ -69,7 +75,10 @@
# 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
@@ -81,7 +90,10 @@
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
@@ -94,7 +106,10 @@
# 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.
@@ -106,7 +121,10 @@
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/.gdbinit,
Eli Zaretskii <=