# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1132282138 0
# Node ID 40cc5f0fb3791ae803552781a4ba0d6e4d9dab14
# Parent  6ea7a55384175d65379e4c8ce1834b924ec150ac
(gud-install-speedbar-variables): Bind gud-pp to "p".
(gdb): Move definition of gud-pp to gdb-ui.el.

diff -r 6ea7a5538417 -r 40cc5f0fb379 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Fri Nov 18 02:47:21 2005 +0000
+++ b/lisp/progmodes/gud.el	Fri Nov 18 02:48:58 2005 +0000
@@ -389,7 +389,8 @@
     (define-key gud-speedbar-key-map " " 'speedbar-toggle-line-expansion)
     (define-key gud-speedbar-key-map "[" 'speedbar-expand-line-descendants)
     (define-key gud-speedbar-key-map "]" 'speedbar-contract-line-descendants)
-    (define-key gud-speedbar-key-map "D" 'gdb-var-delete))
+    (define-key gud-speedbar-key-map "D" 'gdb-var-delete)
+    (define-key gud-speedbar-key-map "p" 'gud-pp))
 
   (speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items
 				 gud-speedbar-key-map
@@ -654,7 +655,6 @@
 	   "Evaluate C dereferenced pointer expression at point.")
 
   ;; For debugging Emacs only.
-  (gud-def gud-pp  "pp1 %e"     nil   "Print the emacs s-expression.")
   (gud-def gud-pv "pv1 %e"      "\C-v" "Print the value of the lisp variable.")
 
   (gud-def gud-until  "until %l" "\C-u" "Continue to current line.")