* gud.el (gud-menu-map): Check gdb-active-process is bound. (Bug#12358)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 593b2a935b7d0e0291953d33de7ef45300f9bf44..2d3bd095278effac81f8a8f847174b9f003b11d2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-23  Glenn Morris  <rgm@gnu.org>
+
+       * progmodes/gud.el (gud-menu-map):
+       Check gdb-active-process is bound.  (Bug#12358)
+
 2012-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * repeat.el (repeat): Set real-this-command (bug#12232).

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 719471278a8448b4fe907694945a73750bf307ea..13eac8392a216bd655fd9c033cd939f0185525c7 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -148,7 +148,8 @@ Used to gray out relevant toolbar icons.")
     ([run]     menu-item "Run" gud-run
                   :enable (not gud-running)
                  :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb)))
-    ([go]      menu-item (if gdb-active-process "Continue" "Run") gud-go
+    ([go]      menu-item (if (bound-and-true-p gdb-active-process)
+                             "Continue" "Run") gud-go
                  :visible (and (eq gud-minor-mode 'gdbmi)
                                 (gdb-show-run-p)))
     ([stop]    menu-item "Stop" gud-stop-subjob
@@ -178,7 +179,7 @@ Used to gray out relevant toolbar icons.")
                                 '(gdbmi gdb dbx xdb jdb pdb)))
     ([pp]      menu-item "Print S-expression" gud-pp
                   :enable (and (not gud-running)
-                                 gdb-active-process)
+                                 (bound-and-true-p gdb-active-process))
                  :visible (and (string-equal
                                 (buffer-local-value
                                  'gud-target-name gud-comint-buffer) "emacs")