Mercurial > emacs

comparison lisp/progmodes/gud.el @ 61564:2e1a9a226cee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-goto-info): Use existing Info buffer, if possible.
author Nick Roberts <nickrob@snap.net.nz>
date Fri, 15 Apr 2005 10:35:09 +0000
parents bf16f5363740
children a095ad7b17e4
comparison
equal deleted inserted replaced
61563:29ab534fa991 61564:2e1a9a226cee
87 (let ((sym (gud-symbol sym t minor-mode))) 87 (let ((sym (gud-symbol sym t minor-mode)))
88 (if (boundp sym) (symbol-value sym)))) 88 (if (boundp sym) (symbol-value sym))))
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 togolbar icons.")
93 93
94 ;; Use existing Info buffer, if possible.
94 (defun gud-goto-info () 95 (defun gud-goto-info ()
95 "Go to relevant Emacs info node." 96 "Go to relevant Emacs info node."
96 (interactive) 97 (interactive)
97 (select-frame (make-frame)) 98 (let ((same-window-regexps same-window-regexps)
98 (require 'info) 99 (display-buffer-reuse-frames t))
99 (if (memq gud-minor-mode '(gdbmi gdba)) 100 (catch 'info-found
100 (Info-goto-node "(emacs)GDB Graphical Interface") 101 (walk-windows
101 (Info-goto-node "(emacs)Debuggers"))) 102 '(lambda (window)
103 (if (eq (window-buffer window) (get-buffer "*info*"))
104 (progn
105 (setq same-window-regexps nil)
106 (throw 'info-found nil))))
107 nil 0)
108 (require 'info)
109 (select-frame (make-frame)))
110 (if (memq gud-minor-mode '(gdbmi gdba))
111 (Info-goto-node "(emacs)GDB Graphical Interface")
112 (Info-goto-node "(emacs)Debuggers"))))
102 113
103 (easy-mmode-defmap gud-menu-map 114 (easy-mmode-defmap gud-menu-map
104 '(([help] "Info" . gud-goto-info) 115 '(([help] "Info" . gud-goto-info)
105 ([refresh] "Refresh" . gud-refresh) 116 ([refresh] "Refresh" . gud-refresh)
106 ([run] menu-item "Run" gud-run 117 ([run] menu-item "Run" gud-run