diff options
| author | Glenn Morris | 2017-03-03 19:46:57 -0500 |
|---|---|---|
| committer | Glenn Morris | 2017-03-03 19:46:57 -0500 |
| commit | 69dde0c54ce8d4ae9600bd10fa15b2b1e227c1f3 (patch) | |
| tree | 97ebdd0e9b0794083484e5dc108410f6163d272c | |
| parent | 87849fe31f6950e1e073f293d6a1a2e1795e426a (diff) | |
| download | emacs-69dde0c54ce8d4ae9600bd10fa15b2b1e227c1f3.tar.gz emacs-69dde0c54ce8d4ae9600bd10fa15b2b1e227c1f3.zip | |
Avoid duplicate gud menu items with gdb-mi
* lisp/progmodes/gud.el (gud-menu-map): Avoid duplicate "Run"
entries in gdbmi mode. (Bug#23923)
| -rw-r--r-- | lisp/progmodes/gud.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 1301758ea12..7ab1442c648 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -146,7 +146,11 @@ Used to gray out relevant toolbar icons.") | |||
| 146 | ([refresh] "Refresh" . gud-refresh) | 146 | ([refresh] "Refresh" . gud-refresh) |
| 147 | ([run] menu-item "Run" gud-run | 147 | ([run] menu-item "Run" gud-run |
| 148 | :enable (not gud-running) | 148 | :enable (not gud-running) |
| 149 | :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb))) | 149 | :visible (or (memq gud-minor-mode '(gdb dbx jdb)) |
| 150 | (and (eq gud-minor-mode 'gdbmi) | ||
| 151 | (or (not (gdb-show-run-p)) | ||
| 152 | (bound-and-true-p | ||
| 153 | gdb-active-process))))) | ||
| 150 | ([go] menu-item (if (bound-and-true-p gdb-active-process) | 154 | ([go] menu-item (if (bound-and-true-p gdb-active-process) |
| 151 | "Continue" "Run") gud-go | 155 | "Continue" "Run") gud-go |
| 152 | :visible (and (eq gud-minor-mode 'gdbmi) | 156 | :visible (and (eq gud-minor-mode 'gdbmi) |