diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2006-06-05 10:10:51 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2006-06-05 10:10:51 +0000 |
| commit | 121586b1f77c36990e97265e7edbd936b14a3239 (patch) | |
| tree | 108b6ec8d9486d44a365428964a2a3e8e5d15ece | |
| parent | dac5ab0a1b7251c153c1b1cb3425a4dd8ce8c041 (diff) | |
| download | emacs-121586b1f77c36990e97265e7edbd936b14a3239.tar.gz | |
(gud-menu-map): Use a conditional help echo for gud-go.
(gud-common-init): Other debuggers may trigger error.
| -rw-r--r-- | lisp/progmodes/gud.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 292ebdff107..4e3acf80b58 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -147,7 +147,7 @@ Used to grey out relevant togolbar icons.") :enable (and (not gud-running) (memq gud-minor-mode '(gdbmi gdb dbx jdb))) :visible (not (eq gud-minor-mode 'gdba))) - ([go] menu-item "Run/Continue" gud-go + ([go] menu-item (if gdb-active-process "Continue" "Run") gud-go :visible (and (not gud-running) (eq gud-minor-mode 'gdba))) ([stop] menu-item "Stop" gud-stop-subjob @@ -2565,7 +2565,7 @@ comint mode, which see." (existing-buffer (get-buffer (concat "*gud" filepart "*")))) (pop-to-buffer (concat "*gud" filepart "*")) (when (and existing-buffer (get-buffer-process existing-buffer)) - (error "This program is already running under gdb")) + (error "This program is already being debugged")) ;; Set the dir, in case the buffer already existed with a different dir. (setq default-directory dir) ;; Set default-directory to the file's directory. |
