diff options
| author | Eli Zaretskii | 2017-05-27 15:15:18 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-05-27 15:15:18 +0300 |
| commit | 4b17214aab5d108a2b9b060e49ef6a27d43d35b4 (patch) | |
| tree | 383b044d45a6146bb21fc44e9ba618ea717b0e34 | |
| parent | c0f2c298772fbb1dcaa1da3e9c2760e09147e115 (diff) | |
| download | emacs-4b17214aab5d108a2b9b060e49ef6a27d43d35b4.tar.gz emacs-4b17214aab5d108a2b9b060e49ef6a27d43d35b4.zip | |
Fix GUD "Stop" display when running pdb
* lisp/progmodes/gud.el (gud-menu-map): Don't call gdb-show-stop-p
when GUD mode is 'pdb'. (Bug#27024)
| -rw-r--r-- | lisp/progmodes/gud.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 8cb912706fd..e9ca7eade36 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -157,7 +157,8 @@ Used to gray out relevant toolbar icons.") | |||
| 157 | (gdb-show-run-p))) | 157 | (gdb-show-run-p))) |
| 158 | ([stop] menu-item "Stop" gud-stop-subjob | 158 | ([stop] menu-item "Stop" gud-stop-subjob |
| 159 | :visible (or (not (memq gud-minor-mode '(gdbmi pdb))) | 159 | :visible (or (not (memq gud-minor-mode '(gdbmi pdb))) |
| 160 | (gdb-show-stop-p))) | 160 | (and (eq gud-minor-mode 'gdbmi) |
| 161 | (gdb-show-stop-p)))) | ||
| 161 | ([until] menu-item "Continue to selection" gud-until | 162 | ([until] menu-item "Continue to selection" gud-until |
| 162 | :enable (not gud-running) | 163 | :enable (not gud-running) |
| 163 | :visible (and (memq gud-minor-mode '(gdbmi gdb perldb)) | 164 | :visible (and (memq gud-minor-mode '(gdbmi gdb perldb)) |