* progmodes/gud.el (gud-pv): Use pv instead of pv1.

* progmodes/gdb-mi.el (gud-pp): Use pp instead of pp1.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d44e9d956368ec562ac0aafac79820f41464201e..fdf25af86eed306e8748dd723be21020a14f5333 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-05  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * progmodes/gud.el (gud-pv): Use pv instead of pv1.
+       * progmodes/gdb-mi.el (gud-pp): Use pp instead of pp1.
+
 2012-02-05  Chong Yidong  <cyd@gnu.org>
 
        * custom.el (defcustom): Doc fix.

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 1f134755e7c357dae7d4678d62c9e244bb3ca442..301714ec55ff09cdbae306da1d8507351f6f3c6a 100644 (file)
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -779,9 +779,9 @@ detailed description of this mode.
   (gud-def gud-pp
           (gud-call
            (concat
-            "pp1 " (if (eq (buffer-local-value
-                            'major-mode (window-buffer)) 'speedbar-mode)
-                       (gdb-find-watch-expression) "%e")) arg)
+            "pp " (if (eq (buffer-local-value
+                           'major-mode (window-buffer)) 'speedbar-mode)
+                      (gdb-find-watch-expression) "%e")) arg)
           nil   "Print the Emacs s-expression.")
 
   (define-key gud-minor-mode-map [left-margin mouse-1]

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index f024fbd5dfcbac638b08f5d607274f32bcb0f57d..121a023cd5420047ad7786cabac4aee9914c9b06 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -749,7 +749,7 @@ directory and source-file directory for your debugger."
           "Evaluate C dereferenced pointer expression at point.")
 
   ;; For debugging Emacs only.
-  (gud-def gud-pv "pv1 %e"      "\C-v" "Print the value of the lisp variable.")
+  (gud-def gud-pv "pv %e"      "\C-v" "Print the value of the lisp variable.")
 
   (gud-def gud-until  "until %l" "\C-u" "Continue to current line.")
   (gud-def gud-run    "run"     nil    "Run the program.")