[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.32 emacs/lisp/progmodes/gud.el:1.33
*** emacs/lisp/progmodes/gud.el:1.32    Tue Apr 12 03:11:23 2005
--- emacs/lisp/progmodes/gud.el Fri Apr 15 10:35:09 2005
***************
*** 89,104 ****
  
  (defvar gud-running nil
    "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)
--- 89,115 ----
  
  (defvar gud-running nil
    "Non-nil if debuggee is running.
! Used to grey out relevant togolbar icons.")
  
+ ;; Use existing Info buffer, if possible.
  (defun gud-goto-info ()
    "Go to relevant Emacs info node."
    (interactive)
!   (let ((same-window-regexps same-window-regexps)
!       (display-buffer-reuse-frames t))
!     (catch 'info-found
!       (walk-windows
!        '(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
    '(([help]     "Info" . gud-goto-info)