/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by nickrob, Fri Nov 26 15:44:37 2004 UTC revision 1.28 by nickrob, Tue Feb 1 20:10:19 2005 UTC
# Line 91  If SOFT is non-nil, returns nil if the s Line 91  If SOFT is non-nil, returns nil if the s
91    "Non-nil if debuggee is running.    "Non-nil if debuggee is running.
92  Used to grey out relevant toolbar icons.")  Used to grey out relevant toolbar icons.")
93    
94    (defun gud-goto-info ()
95      "Go to relevant Emacs info node."
96      (interactive)
97      (select-frame (make-frame))
98      (require 'info)
99      (if (memq gud-minor-mode '(gdbmi gdba))
100          (Info-goto-node "(emacs)GDB Graphical Interface")
101        (Info-goto-node "(emacs)Debuggers")))
102    
103  (easy-mmode-defmap gud-menu-map  (easy-mmode-defmap gud-menu-map
104    '(([help]     menu-item "Help" gdb-goto-info    '(([help]     "Info" . gud-goto-info
                   :enable (memq gud-minor-mode '(gdbmi gdba)))  
105      ([refresh]  "Refresh" . gud-refresh)      ([refresh]  "Refresh" . gud-refresh)
106      ([run]      menu-item "Run" gud-run      ([run]      menu-item "Run" gud-run
107                    :enable (and (not gud-running)                    :enable (and (not gud-running)
# Line 172  Used to grey out relevant toolbar icons. Line 180  Used to grey out relevant toolbar icons.
180                       (gud-nexti . "gud-ni")                       (gud-nexti . "gud-ni")
181                       (gud-up . "gud-up")                       (gud-up . "gud-up")
182                       (gud-down . "gud-down")                       (gud-down . "gud-down")
183                       (gdb-goto-info . "help"))                       (gud-goto-info . "info"))
184                     map)                     map)
185            (tool-bar-local-item-from-menu            (tool-bar-local-item-from-menu
186             (car x) (cdr x) map gud-minor-mode-map)))))             (car x) (cdr x) map gud-minor-mode-map)))))

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26