diff options
| author | Nick Roberts | 2005-05-27 20:54:58 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-05-27 20:54:58 +0000 |
| commit | be820e8d82e00577e69b07a9a29f207144439a73 (patch) | |
| tree | d5674c394dfc5c5d00280cf66e91fffd57a7f7d0 | |
| parent | e9d3dbea9641e23b59dfd5ebcbbd6548fb04b950 (diff) | |
| download | emacs-be820e8d82e00577e69b07a9a29f207144439a73.tar.gz emacs-be820e8d82e00577e69b07a9a29f207144439a73.zip | |
(gud-goto-info): Use info. Don't use require.
(toggle-gud-tooltip-dereference): Rename from gud-toggle-tooltip-dereference.
| -rw-r--r-- | lisp/progmodes/gud.el | 37 |
1 files changed, 18 insertions, 19 deletions
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 @@ | |||
| 25 | 25 | ||
| 26 | ;;; Commentary: | 26 | ;;; Commentary: |
| 27 | 27 | ||
| 28 | ;; The ancestral gdb.el was by W. Schelter <wfs@rascal.ics.utexas.edu> | 28 | ;; The ancestral gdb.el was by W. Schelter <wfs@rascal.ics.utexas.edu> It was |
| 29 | ;; It was later rewritten by rms. Some ideas were due to Masanobu. | 29 | ;; later rewritten by rms. Some ideas were due to Masanobu. Grand |
| 30 | ;; Grand Unification (sdb/dbx support) by Eric S. Raymond <esr@thyrsus.com> | 30 | ;; Unification (sdb/dbx support) by Eric S. Raymond <esr@thyrsus.com> Barry |
| 31 | ;; The overloading code was then rewritten by Barry Warsaw <bwarsaw@cen.com>, | 31 | ;; Warsaw <bwarsaw@cen.com> hacked the mode to use comint.el. Shane Hartman |
| 32 | ;; who also hacked the mode to use comint.el. Shane Hartman <shane@spr.com> | 32 | ;; <shane@spr.com> added support for xdb (HPUX debugger). Rick Sladkey |
| 33 | ;; added support for xdb (HPUX debugger). Rick Sladkey <jrs@world.std.com> | 33 | ;; <jrs@world.std.com> wrote the GDB command completion code. Dave Love |
| 34 | ;; wrote the GDB command completion code. Dave Love <d.love@dl.ac.uk> | 34 | ;; <d.love@dl.ac.uk> added the IRIX kluge, re-implemented the Mips-ish variant |
| 35 | ;; added the IRIX kluge, re-implemented the Mips-ish variant and added | 35 | ;; and added a menu. Brian D. Carlstrom <bdc@ai.mit.edu> combined the IRIX |
| 36 | ;; a menu. Brian D. Carlstrom <bdc@ai.mit.edu> combined the IRIX kluge with | 36 | ;; kluge with the gud-xdb-directories hack producing gud-dbx-directories. |
| 37 | ;; the gud-xdb-directories hack producing gud-dbx-directories. Derek L. Davies | 37 | ;; Derek L. Davies <ddavies@world.std.com> added support for jdb (Java |
| 38 | ;; <ddavies@world.std.com> added support for jdb (Java debugger.) | 38 | ;; debugger.) |
| 39 | 39 | ||
| 40 | ;;; Code: | 40 | ;;; Code: |
| 41 | 41 | ||
| @@ -107,11 +107,10 @@ Used to grey out relevant togolbar icons.") | |||
| 107 | (setq same-window-regexps nil) | 107 | (setq same-window-regexps nil) |
| 108 | (throw 'info-found nil)))) | 108 | (throw 'info-found nil)))) |
| 109 | nil 0) | 109 | nil 0) |
| 110 | (require 'info) | ||
| 111 | (select-frame (make-frame))) | 110 | (select-frame (make-frame))) |
| 112 | (if (memq gud-minor-mode '(gdbmi gdba)) | 111 | (if (memq gud-minor-mode '(gdbmi gdba)) |
| 113 | (Info-goto-node "(emacs)GDB Graphical Interface") | 112 | (info "(emacs)GDB Graphical Interface") |
| 114 | (Info-goto-node "(emacs)Debuggers")))) | 113 | (info "(emacs)Debuggers")))) |
| 115 | 114 | ||
| 116 | (easy-mmode-defmap gud-menu-map | 115 | (easy-mmode-defmap gud-menu-map |
| 117 | '(([help] "Info" . gud-goto-info) | 116 | '(([help] "Info" . gud-goto-info) |
| @@ -343,13 +342,13 @@ t means that there is no stack, and we are in display-file mode.") | |||
| 343 | 342 | ||
| 344 | (defvar gud-speedbar-menu-items | 343 | (defvar gud-speedbar-menu-items |
| 345 | ;; Note to self. Add expand, and turn off items when not available. | 344 | ;; Note to self. Add expand, and turn off items when not available. |
| 346 | '(["Jump to stack frame" speedbar-edit-line | 345 | '(["Jump to stack frame" speedbar-edit-line |
| 347 | (with-current-buffer gud-comint-buffer | 346 | (with-current-buffer gud-comint-buffer |
| 348 | (not (memq gud-minor-mode '(gdbmi gdba))))] | 347 | (not (memq gud-minor-mode '(gdbmi gdba))))] |
| 349 | ["Edit value" speedbar-edit-line | 348 | ["Edit value" speedbar-edit-line |
| 350 | (with-current-buffer gud-comint-buffer | 349 | (with-current-buffer gud-comint-buffer |
| 351 | (not (memq gud-minor-mode '(gdbmi gdba))))] | 350 | (not (memq gud-minor-mode '(gdbmi gdba))))] |
| 352 | ["Delete expression" gdb-var-delete | 351 | ["Delete expression" gdb-var-delete |
| 353 | (with-current-buffer gud-comint-buffer | 352 | (with-current-buffer gud-comint-buffer |
| 354 | (not (memq gud-minor-mode '(gdbmi gdba))))]) | 353 | (not (memq gud-minor-mode '(gdbmi gdba))))]) |
| 355 | "Additional menu items to add to the speedbar frame.") | 354 | "Additional menu items to add to the speedbar frame.") |
| @@ -3192,7 +3191,7 @@ For C this would dereference a pointer expression.") | |||
| 3192 | "The mouse movement event that led to a tooltip display. | 3191 | "The mouse movement event that led to a tooltip display. |
| 3193 | This event can be examined by forms in GUD-TOOLTIP-DISPLAY.") | 3192 | This event can be examined by forms in GUD-TOOLTIP-DISPLAY.") |
| 3194 | 3193 | ||
| 3195 | (defun gud-tooltip-toggle-dereference () | 3194 | (defun toggle-gud-tooltip-dereference () |
| 3196 | "Toggle whether tooltips should show `* expr' or `expr'." | 3195 | "Toggle whether tooltips should show `* expr' or `expr'." |
| 3197 | (interactive) | 3196 | (interactive) |
| 3198 | (setq gud-tooltip-dereference (not gud-tooltip-dereference)) | 3197 | (setq gud-tooltip-dereference (not gud-tooltip-dereference)) |
| @@ -3201,7 +3200,7 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.") | |||
| 3201 | (if gud-tooltip-dereference "on" "off")))) | 3200 | (if gud-tooltip-dereference "on" "off")))) |
| 3202 | 3201 | ||
| 3203 | (define-obsolete-function-alias 'tooltip-gud-toggle-dereference | 3202 | (define-obsolete-function-alias 'tooltip-gud-toggle-dereference |
| 3204 | 'gud-tooltip-toggle-dereference "22.1") | 3203 | 'toggle-gud-tooltip-dereference "22.1") |
| 3205 | 3204 | ||
| 3206 | (define-minor-mode gud-tooltip-mode | 3205 | (define-minor-mode gud-tooltip-mode |
| 3207 | "Toggle the display of GUD tooltips." | 3206 | "Toggle the display of GUD tooltips." |