diff options
author | Nick Roberts <nickrob@snap.net.nz> | 2002-11-23 14:10:19 +0000 |
---|---|---|
committer | Nick Roberts <nickrob@snap.net.nz> | 2002-11-23 14:10:19 +0000 |
commit | 9e06a9300911a3635da736688e4b5cdc4c5f131e (patch) | |
tree | 6b5512203ade473a4da6a8690c6902595ef44002 /lisp/tooltip.el | |
parent | a922c25a24ee561fc48dc3e3c1069d03e5c45561 (diff) | |
download | emacs-9e06a9300911a3635da736688e4b5cdc4c5f131e.tar.gz emacs-9e06a9300911a3635da736688e4b5cdc4c5f131e.tar.bz2 emacs-9e06a9300911a3635da736688e4b5cdc4c5f131e.zip |
(tooltip-gud-print-command): Add server prefix to the
print command for gdb to keep it out of the command history.
Diffstat (limited to 'lisp/tooltip.el')
-rw-r--r-- | lisp/tooltip.el | 3 |
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." (when tooltip-gud-dereference (setq expr (concat "*" expr))) (case tooltip-gud-debugger - ((gdb dbx) (concat "print " expr)) + (gdb (concat "server print " expr)) + (dbx (concat "print " expr)) (xdb (concat "p " expr)) (sdb (concat expr "/")) (perldb expr))) |