[Emacs-diffs] /srv/bzr/emacs/trunk r110638: * gud.el (gud-menu-map): Check gdb-active-process is bound. (Bug#12358)

[Glenn Morris]

------------------------------------------------------------
revno: 110638
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2012-10-23 13:49:24 -0400
message:
  * gud.el (gud-menu-map): Check gdb-active-process is bound.  (Bug#12358)
modified:
  lisp/ChangeLog
  lisp/progmodes/gud.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-23 16:57:31 +0000
+++ b/lisp/ChangeLog    2012-10-23 17:49:24 +0000
@@ -1,3 +1,8 @@
+2012-10-23  Glenn Morris  <address@hidden>
+
+       * progmodes/gud.el (gud-menu-map):
+       Check gdb-active-process is bound.  (Bug#12358)
+
 2012-10-23  Stefan Monnier  <address@hidden>
 
        * repeat.el (repeat): Set real-this-command (bug#12232).

=== modified file 'lisp/progmodes/gud.el'
--- a/lisp/progmodes/gud.el     2012-10-18 19:46:18 +0000
+++ b/lisp/progmodes/gud.el     2012-10-23 17:49:24 +0000
@@ -148,7 +148,8 @@
     ([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 @@
                                 '(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")