# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1107288619 0
# Node ID d5e850d3f67fb7ef75291151e885a44c55316f7c
# Parent  b164b73ca526d4c5c34ff496ef1b8362719b90c4
(gud-goto-info): New function.
(gud-tool-bar-map): Use correct icon.

diff -r b164b73ca526 -r d5e850d3f67f lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Tue Feb 01 20:09:33 2005 +0000
+++ b/lisp/progmodes/gud.el	Tue Feb 01 20:10:19 2005 +0000
@@ -91,9 +91,17 @@
   "Non-nil if debuggee is running.
 Used to grey out relevant toolbar icons.")
 
+(defun gud-goto-info ()
+  "Go to relevant Emacs info node."
+  (interactive)
+  (select-frame (make-frame))
+  (require 'info)
+  (if (memq gud-minor-mode '(gdbmi gdba))
+      (Info-goto-node "(emacs)GDB Graphical Interface")
+    (Info-goto-node "(emacs)Debuggers")))
+
 (easy-mmode-defmap gud-menu-map
-  '(([help]     menu-item "Help" gdb-goto-info
-                  :enable (memq gud-minor-mode '(gdbmi gdba)))
+  '(([help]     "Info" . gud-goto-info
     ([refresh]	"Refresh" . gud-refresh)
     ([run]	menu-item "Run" gud-run
                   :enable (and (not gud-running)
@@ -172,7 +180,7 @@
 		     (gud-nexti . "gud-ni")
 		     (gud-up . "gud-up")
 		     (gud-down . "gud-down")
-		     (gdb-goto-info . "help"))
+		     (gud-goto-info . "info"))
 		   map)
 	  (tool-bar-local-item-from-menu
 	   (car x) (cdr x) map gud-minor-mode-map)))))