aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2005-05-27 20:54:58 +0000
committerNick Roberts2005-05-27 20:54:58 +0000
commitbe820e8d82e00577e69b07a9a29f207144439a73 (patch)
treed5674c394dfc5c5d00280cf66e91fffd57a7f7d0
parente9d3dbea9641e23b59dfd5ebcbbd6548fb04b950 (diff)
downloademacs-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.el37
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.
3193This event can be examined by forms in GUD-TOOLTIP-DISPLAY.") 3192This 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."