Commit 121586b1 authored by Nick Roberts's avatar Nick Roberts
Browse files

(gud-menu-map): Use a conditional help echo for gud-go.

(gud-common-init): Other debuggers may trigger error.
parent dac5ab0a
...@@ -147,7 +147,7 @@ Used to grey out relevant togolbar icons.") ...@@ -147,7 +147,7 @@ Used to grey out relevant togolbar icons.")
:enable (and (not gud-running) :enable (and (not gud-running)
(memq gud-minor-mode '(gdbmi gdb dbx jdb))) (memq gud-minor-mode '(gdbmi gdb dbx jdb)))
:visible (not (eq gud-minor-mode 'gdba))) :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) :visible (and (not gud-running)
(eq gud-minor-mode 'gdba))) (eq gud-minor-mode 'gdba)))
([stop] menu-item "Stop" gud-stop-subjob ([stop] menu-item "Stop" gud-stop-subjob
...@@ -2565,7 +2565,7 @@ comint mode, which see." ...@@ -2565,7 +2565,7 @@ comint mode, which see."
(existing-buffer (get-buffer (concat "*gud" filepart "*")))) (existing-buffer (get-buffer (concat "*gud" filepart "*"))))
(pop-to-buffer (concat "*gud" filepart "*")) (pop-to-buffer (concat "*gud" filepart "*"))
(when (and existing-buffer (get-buffer-process existing-buffer)) (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. ;; Set the dir, in case the buffer already existed with a different dir.
(setq default-directory dir) (setq default-directory dir)
;; Set default-directory to the file's directory. ;; Set default-directory to the file's directory.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment