diff options
| author | Nick Roberts | 2006-06-05 10:10:51 +0000 |
|---|---|---|
| committer | Nick Roberts | 2006-06-05 10:10:51 +0000 |
| commit | 121586b1f77c36990e97265e7edbd936b14a3239 (patch) | |
| tree | 108b6ec8d9486d44a365428964a2a3e8e5d15ece | |
| parent | dac5ab0a1b7251c153c1b1cb3425a4dd8ce8c041 (diff) | |
| download | emacs-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.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.") | |||
| 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. |