[Emacs-diffs] /srv/bzr/emacs/trunk r107096: * .gdbinit (pp1, pv1): Remove redundant defines.

[Andreas Schwab]

------------------------------------------------------------
revno: 107096
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sat 2012-02-04 20:57:12 +0100
message:
  * .gdbinit (pp1, pv1): Remove redundant defines.
  (pr): Use pp.
modified:
  src/.gdbinit
  src/ChangeLog

=== modified file 'src/.gdbinit'
--- a/src/.gdbinit      2012-01-19 07:21:25 +0000
+++ b/src/.gdbinit      2012-02-04 19:57:12 +0000
@@ -67,10 +67,7 @@
 # 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
+  pp $
 end
 document pr
 Print the emacs s-expression which is $.
@@ -90,28 +87,12 @@
 Works only when an inferior emacs is executing.
 end
 
-# Print out s-expressions from tool bar
-define pp1
-  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 pp1
-Print the argument as an emacs s-expression.
-Works only when an inferior emacs is executing.
-For use on tool bar when debugging in Emacs
-where the variable name would not otherwise
-be recorded in the GUD buffer.
-end
-
 # 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 safe_debug_print (find_symbol_value (intern ($tmp)))
   set print_output_debug_flag = $output_debug
 end
 document pv
@@ -119,21 +100,6 @@
 Works only when an inferior emacs is executing.
 end
 
-# Print value of lisp variable
-define pv1
-  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 pv1
-Print the value of the lisp variable given as argument.
-Works only when an inferior emacs is executing.
-For use when debugging in Emacs where the variable
-name would not otherwise be recorded in the GUD buffer.
-end
-
 # Print out current buffer point and boundaries
 define ppt
   set $b = current_buffer

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-02-04 15:10:54 +0000
+++ b/src/ChangeLog     2012-02-04 19:57:12 +0000
@@ -1,3 +1,8 @@
+2012-02-04  Andreas Schwab  <address@hidden>
+
+       * .gdbinit (pp1, pv1): Remove redundant defines.
+       (pr): Use pp.
+
 2012-02-04  Chong Yidong  <address@hidden>
 
        * nsterm.m: Declare a global (Bug#10694).