From be820e8d82e00577e69b07a9a29f207144439a73 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 27 May 2005 20:54:58 +0000 Subject: (gud-goto-info): Use info. Don't use require. (toggle-gud-tooltip-dereference): Rename from gud-toggle-tooltip-dereference. --- lisp/progmodes/gud.el | 37 ++++++++++++++++++------------------- 1 file changed, 18 insertions(+), 19 deletions(-) (limited to 'lisp/progmodes') diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 4c95fc65d58..31b9e7d7204 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -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 @@ Used to grey out relevant togolbar icons.") (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 @@ t means that there is no stack, and we are in display-file mode.") (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 @@ For C this would dereference a pointer expression.") "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 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.") (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." -- cgit v1.2.1