[Emacs-diffs] Changes to emacs/src/.gdbinit

[Kim F . Storm]

Index: emacs/src/.gdbinit
diff -c emacs/src/.gdbinit:1.67 emacs/src/.gdbinit:1.68
*** emacs/src/.gdbinit:1.67     Wed Nov  9 20:38:12 2005
--- emacs/src/.gdbinit  Wed Nov  9 23:13:56 2005
***************
*** 66,72 ****
  # Print out s-expressions
  define pp
    set $tmp = $arg0
!   set debug_print ($tmp)
  end
  document pp
  Print the argument as an emacs s-expression
--- 66,72 ----
  # Print out s-expressions
  define pp
    set $tmp = $arg0
!   set safe_debug_print ($tmp)
  end
  document pp
  Print the argument as an emacs s-expression
***************
*** 78,87 ****
    set $tmp = $arg0
    echo $arg0
    printf " = "
!   set debug_print ($tmp)
  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
--- 78,112 ----
    set $tmp = $arg0
    echo $arg0
    printf " = "
!   set safe_debug_print ($tmp)
  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 safe_debug_print ( find_symbol_value (intern ($tmp)))
+ end
+ document pv
+ Print the value of the lisp variable given as argument.
+ Works only when an inferior emacs is executing.
+ end
+ 
+ # Print value of lisp variable
+ define pv1
+   set $tmp = "$arg0"
+   echo $arg0
+   printf " = "
+   set safe_debug_print (find_symbol_value (intern ($tmp)))
+ end
+ document pv1
+ Print the value of the lisp variable given as argument.
  Works only when an inferior emacs is executing.
  For use on tool bar when debugging in Emacs
  where the variable name would not otherwise