aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2002-11-23 14:10:19 +0000
committerNick Roberts2002-11-23 14:10:19 +0000
commit9e06a9300911a3635da736688e4b5cdc4c5f131e (patch)
tree6b5512203ade473a4da6a8690c6902595ef44002
parenta922c25a24ee561fc48dc3e3c1069d03e5c45561 (diff)
downloademacs-9e06a9300911a3635da736688e4b5cdc4c5f131e.tar.gz
emacs-9e06a9300911a3635da736688e4b5cdc4c5f131e.zip
(tooltip-gud-print-command): Add server prefix to the
print command for gdb to keep it out of the command history.
-rw-r--r--lisp/tooltip.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 7fd5533639d..a7d734516f2 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -482,7 +482,8 @@ If TOOLTIP-GUD-DEREFERENCE is t, also prepend a `*' to EXPR."
482 (when tooltip-gud-dereference 482 (when tooltip-gud-dereference
483 (setq expr (concat "*" expr))) 483 (setq expr (concat "*" expr)))
484 (case tooltip-gud-debugger 484 (case tooltip-gud-debugger
485 ((gdb dbx) (concat "print " expr)) 485 (gdb (concat "server print " expr))
486 (dbx (concat "print " expr))
486 (xdb (concat "p " expr)) 487 (xdb (concat "p " expr))
487 (sdb (concat expr "/")) 488 (sdb (concat expr "/"))
488 (perldb expr))) 489 (perldb expr)))