[Emacs-diffs] /srv/bzr/emacs/trunk r107114: * progmodes/gud.el (gud-pv): Use pv instead of pv1.

[Andreas Schwab]

------------------------------------------------------------
revno: 107114
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sun 2012-02-05 09:06:37 +0100
message:
  * progmodes/gud.el (gud-pv): Use pv instead of pv1.
  * progmodes/gdb-mi.el (gud-pp): Use pp instead of pp1.
modified:
  lisp/ChangeLog
  lisp/progmodes/gdb-mi.el
  lisp/progmodes/gud.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-02-05 06:44:47 +0000
+++ b/lisp/ChangeLog    2012-02-05 08:06:37 +0000
@@ -1,3 +1,8 @@
+2012-02-05  Andreas Schwab  <address@hidden>
+
+       * 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  <address@hidden>
 
        * custom.el (defcustom): Doc fix.

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2012-01-31 23:47:33 +0000
+++ b/lisp/progmodes/gdb-mi.el  2012-02-05 08:06:37 +0000
@@ -779,9 +779,9 @@
   (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]

=== modified file 'lisp/progmodes/gud.el'
--- a/lisp/progmodes/gud.el     2012-01-29 07:06:54 +0000
+++ b/lisp/progmodes/gud.el     2012-02-05 08:06:37 +0000
@@ -749,7 +749,7 @@
           "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.")