changeset 59851:d5e850d3f67f

(gud-goto-info): New function. (gud-tool-bar-map): Use correct icon.
author Nick Roberts <nickrob@snap.net.nz>
date Tue, 01 Feb 2005 20:10:19 +0000
parents b164b73ca526
children 44381d53da68
files lisp/progmodes/gud.el
diffstat 1 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)))))