[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.27 emacs/lisp/progmodes/gud.el:1.28
*** emacs/lisp/progmodes/gud.el:1.27    Fri Nov 26 15:44:37 2004
--- emacs/lisp/progmodes/gud.el Tue Feb  1 20:10:19 2005
***************
*** 91,99 ****
    "Non-nil if debuggee is running.
  Used to grey out relevant toolbar icons.")
  
  (easy-mmode-defmap gud-menu-map
!   '(([help]     menu-item "Help" gdb-goto-info
!                   :enable (memq gud-minor-mode '(gdbmi gdba)))
      ([refresh]        "Refresh" . gud-refresh)
      ([run]    menu-item "Run" gud-run
                    :enable (and (not gud-running)
--- 91,107 ----
    "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]     "Info" . gud-goto-info
      ([refresh]        "Refresh" . gud-refresh)
      ([run]    menu-item "Run" gud-run
                    :enable (and (not gud-running)
***************
*** 172,178 ****
                     (gud-nexti . "gud-ni")
                     (gud-up . "gud-up")
                     (gud-down . "gud-down")
!                    (gdb-goto-info . "help"))
                   map)
          (tool-bar-local-item-from-menu
           (car x) (cdr x) map gud-minor-mode-map)))))
--- 180,186 ----
                     (gud-nexti . "gud-ni")
                     (gud-up . "gud-up")
                     (gud-down . "gud-down")
!                    (gud-goto-info . "info"))
                   map)
          (tool-bar-local-item-from-menu
           (car x) (cdr x) map gud-minor-mode-map)))))