# HG changeset patch # User Nick Roberts # Date 1117227298 0 # Node ID a6b83140d7d10e8cf39d18ff7597dfd2734b31b2 # Parent f6c6cfde226ce85372d8fbeac5daf0dfc8a72562 (gud-goto-info): Use info. Don't use require. (toggle-gud-tooltip-dereference): Rename from gud-toggle-tooltip-dereference. diff -r f6c6cfde226c -r a6b83140d7d1 lisp/progmodes/gud.el --- a/lisp/progmodes/gud.el Fri May 27 20:40:06 2005 +0000 +++ b/lisp/progmodes/gud.el Fri May 27 20:54:58 2005 +0000 @@ -25,17 +25,17 @@ ;;; Commentary: -;; The ancestral gdb.el was by W. Schelter -;; It was later rewritten by rms. Some ideas were due to Masanobu. -;; Grand Unification (sdb/dbx support) by Eric S. Raymond -;; The overloading code was then rewritten by Barry Warsaw , -;; who also hacked the mode to use comint.el. Shane Hartman -;; added support for xdb (HPUX debugger). Rick Sladkey -;; wrote the GDB command completion code. Dave Love -;; added the IRIX kluge, re-implemented the Mips-ish variant and added -;; a menu. Brian D. Carlstrom combined the IRIX kluge with -;; the gud-xdb-directories hack producing gud-dbx-directories. Derek L. Davies -;; added support for jdb (Java debugger.) +;; The ancestral gdb.el was by W. Schelter It was +;; later rewritten by rms. Some ideas were due to Masanobu. Grand +;; Unification (sdb/dbx support) by Eric S. Raymond Barry +;; Warsaw hacked the mode to use comint.el. Shane Hartman +;; added support for xdb (HPUX debugger). Rick Sladkey +;; wrote the GDB command completion code. Dave Love +;; added the IRIX kluge, re-implemented the Mips-ish variant +;; and added a menu. Brian D. Carlstrom combined the IRIX +;; kluge with the gud-xdb-directories hack producing gud-dbx-directories. +;; Derek L. Davies added support for jdb (Java +;; debugger.) ;;; Code: @@ -107,11 +107,10 @@ (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")))) + (info "(emacs)GDB Graphical Interface") + (info "(emacs)Debuggers")))) (easy-mmode-defmap gud-menu-map '(([help] "Info" . gud-goto-info) @@ -343,13 +342,13 @@ (defvar gud-speedbar-menu-items ;; Note to self. Add expand, and turn off items when not available. - '(["Jump to stack frame" speedbar-edit-line + '(["Jump to stack frame" speedbar-edit-line (with-current-buffer gud-comint-buffer (not (memq gud-minor-mode '(gdbmi gdba))))] - ["Edit value" speedbar-edit-line + ["Edit value" speedbar-edit-line (with-current-buffer gud-comint-buffer (not (memq gud-minor-mode '(gdbmi gdba))))] - ["Delete expression" gdb-var-delete + ["Delete expression" gdb-var-delete (with-current-buffer gud-comint-buffer (not (memq gud-minor-mode '(gdbmi gdba))))]) "Additional menu items to add to the speedbar frame.") @@ -3192,7 +3191,7 @@ "The mouse movement event that led to a tooltip display. This event can be examined by forms in GUD-TOOLTIP-DISPLAY.") -(defun gud-tooltip-toggle-dereference () +(defun toggle-gud-tooltip-dereference () "Toggle whether tooltips should show `* expr' or `expr'." (interactive) (setq gud-tooltip-dereference (not gud-tooltip-dereference)) @@ -3201,7 +3200,7 @@ (if gud-tooltip-dereference "on" "off")))) (define-obsolete-function-alias 'tooltip-gud-toggle-dereference - 'gud-tooltip-toggle-dereference "22.1") + 'toggle-gud-tooltip-dereference "22.1") (define-minor-mode gud-tooltip-mode "Toggle the display of GUD tooltips."