aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2006-06-05 10:10:51 +0000
committerNick Roberts2006-06-05 10:10:51 +0000
commit121586b1f77c36990e97265e7edbd936b14a3239 (patch)
tree108b6ec8d9486d44a365428964a2a3e8e5d15ece
parentdac5ab0a1b7251c153c1b1cb3425a4dd8ce8c041 (diff)
downloademacs-121586b1f77c36990e97265e7edbd936b14a3239.tar.gz
emacs-121586b1f77c36990e97265e7edbd936b14a3239.zip
(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.el4
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.")
147 :enable (and (not gud-running) 147 :enable (and (not gud-running)
148 (memq gud-minor-mode '(gdbmi gdb dbx jdb))) 148 (memq gud-minor-mode '(gdbmi gdb dbx jdb)))
149 :visible (not (eq gud-minor-mode 'gdba))) 149 :visible (not (eq gud-minor-mode 'gdba)))
150 ([go] menu-item "Run/Continue" gud-go 150 ([go] menu-item (if gdb-active-process "Continue" "Run") gud-go
151 :visible (and (not gud-running) 151 :visible (and (not gud-running)
152 (eq gud-minor-mode 'gdba))) 152 (eq gud-minor-mode 'gdba)))
153 ([stop] menu-item "Stop" gud-stop-subjob 153 ([stop] menu-item "Stop" gud-stop-subjob
@@ -2565,7 +2565,7 @@ comint mode, which see."
2565 (existing-buffer (get-buffer (concat "*gud" filepart "*")))) 2565 (existing-buffer (get-buffer (concat "*gud" filepart "*"))))
2566 (pop-to-buffer (concat "*gud" filepart "*")) 2566 (pop-to-buffer (concat "*gud" filepart "*"))
2567 (when (and existing-buffer (get-buffer-process existing-buffer)) 2567 (when (and existing-buffer (get-buffer-process existing-buffer))
2568 (error "This program is already running under gdb")) 2568 (error "This program is already being debugged"))
2569 ;; Set the dir, in case the buffer already existed with a different dir. 2569 ;; Set the dir, in case the buffer already existed with a different dir.
2570 (setq default-directory dir) 2570 (setq default-directory dir)
2571 ;; Set default-directory to the file's directory. 2571 ;; Set default-directory to the file's directory.