Mercurial > emacs

comparison lisp/progmodes/gud.el @ 59851:d5e850d3f67f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 09b393616222
children 49d235ff760d
comparison
equal deleted inserted replaced
59850:b164b73ca526 59851:d5e850d3f67f
89 89
90 (defvar gud-running nil 90 (defvar gud-running nil
91 "Non-nil if debuggee is running. 91 "Non-nil if debuggee is running.
92 Used to grey out relevant toolbar icons.") 92 Used to grey out relevant toolbar icons.")
93 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
94 (easy-mmode-defmap gud-menu-map 103 (easy-mmode-defmap gud-menu-map
95 '(([help] menu-item "Help" gdb-goto-info 104 '(([help] "Info" . gud-goto-info
96 :enable (memq gud-minor-mode '(gdbmi gdba)))
97 ([refresh] "Refresh" . gud-refresh) 105 ([refresh] "Refresh" . gud-refresh)
98 ([run] menu-item "Run" gud-run 106 ([run] menu-item "Run" gud-run
99 :enable (and (not gud-running) 107 :enable (and (not gud-running)
100 (memq gud-minor-mode '(gdbmi gdba gdb dbx jdb)))) 108 (memq gud-minor-mode '(gdbmi gdba gdb dbx jdb))))
101 ([until] menu-item "Continue to selection" gud-until 109 ([until] menu-item "Continue to selection" gud-until
170 (gud-finish . "gud-finish") 178 (gud-finish . "gud-finish")
171 (gud-stepi . "gud-si") 179 (gud-stepi . "gud-si")
172 (gud-nexti . "gud-ni") 180 (gud-nexti . "gud-ni")
173 (gud-up . "gud-up") 181 (gud-up . "gud-up")
174 (gud-down . "gud-down") 182 (gud-down . "gud-down")
175 (gdb-goto-info . "help")) 183 (gud-goto-info . "info"))
176 map) 184 map)
177 (tool-bar-local-item-from-menu 185 (tool-bar-local-item-from-menu
178 (car x) (cdr x) map gud-minor-mode-map))))) 186 (car x) (cdr x) map gud-minor-mode-map)))))
179 187
180 (defun gud-file-name (f) 188 (defun gud-file-name (f)