Commit f6579c71 authored by Nick Roberts's avatar Nick Roberts
Browse files

(gud-goto-info): Use existing Info buffer, if

possible.
parent 3698ff2e
...@@ -89,16 +89,27 @@ If SOFT is non-nil, returns nil if the symbol doesn't already exist." ...@@ -89,16 +89,27 @@ If SOFT is non-nil, returns nil if the symbol doesn't already exist."
(defvar gud-running nil (defvar gud-running nil
"Non-nil if debuggee is running. "Non-nil if debuggee is running.
Used to grey out relevant toolbar icons.") Used to grey out relevant togolbar icons.")
;; Use existing Info buffer, if possible.
(defun gud-goto-info () (defun gud-goto-info ()
"Go to relevant Emacs info node." "Go to relevant Emacs info node."
(interactive) (interactive)
(select-frame (make-frame)) (let ((same-window-regexps same-window-regexps)
(require 'info) (display-buffer-reuse-frames t))
(if (memq gud-minor-mode '(gdbmi gdba)) (catch 'info-found
(Info-goto-node "(emacs)GDB Graphical Interface") (walk-windows
(Info-goto-node "(emacs)Debuggers"))) '(lambda (window)
(if (eq (window-buffer window) (get-buffer "*info*"))
(progn
(setq same-window-regexps nil)
(throw 'info-found nil))))
nil 0)
(require 'info)
(select-frame (make-frame)))
(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 (easy-mmode-defmap gud-menu-map
'(([help] "Info" . gud-goto-info) '(([help] "Info" . gud-goto-info)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment