aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2005-08-01 08:29:11 +0000
committerNick Roberts2005-08-01 08:29:11 +0000
commitbfa93501f0713fedd6648d6e41131cdd8abb1393 (patch)
treea79c1dafff14354e60df70adb857d09530ab92d1
parente37a0f2dba81fe8fa4bedbf5e78b6134e7ce9d63 (diff)
downloademacs-bfa93501f0713fedd6648d6e41131cdd8abb1393.tar.gz
emacs-bfa93501f0713fedd6648d6e41131cdd8abb1393.zip
* progmodes/gdb-ui.el (gdb-enable-debug-log): Add autoload cookie.
* progmodes/gud.el (gud-tooltip-mode): Add autoload cookie. (gud-tooltip-mode): Don't barf if the GUD buffer has been killed.
-rw-r--r--lisp/progmodes/gdb-ui.el1
-rw-r--r--lisp/progmodes/gud.el10
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 8e574e912c6..7f1d2ad2092 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -201,6 +201,7 @@ detailed description of this mode.
201 201
202(defvar gdb-debug-log nil) 202(defvar gdb-debug-log nil)
203 203
204;;;###autoload
204(defcustom gdb-enable-debug-log nil 205(defcustom gdb-enable-debug-log nil
205 "Non-nil means record the process input and output in `gdb-debug-log'." 206 "Non-nil means record the process input and output in `gdb-debug-log'."
206 :type 'boolean 207 :type 'boolean
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index f93ff3d7e02..22b0b7b36d6 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -4,7 +4,8 @@
4;; Maintainer: FSF 4;; Maintainer: FSF
5;; Keywords: unix, tools 5;; Keywords: unix, tools
6 6
7;; Copyright (C) 1992,93,94,95,96,1998,2000,02,03,04,05 Free Software Foundation, Inc. 7;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003,
8;; 2004, 2005 Free Software Foundation, Inc.
8 9
9;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
10 11
@@ -3209,6 +3210,7 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
3209(define-obsolete-function-alias 'tooltip-gud-toggle-dereference 3210(define-obsolete-function-alias 'tooltip-gud-toggle-dereference
3210 'toggle-gud-tooltip-dereference "22.1") 3211 'toggle-gud-tooltip-dereference "22.1")
3211 3212
3213;;;###autoload
3212(define-minor-mode gud-tooltip-mode 3214(define-minor-mode gud-tooltip-mode
3213 "Toggle the display of GUD tooltips." 3215 "Toggle the display of GUD tooltips."
3214 :global t 3216 :global t
@@ -3225,7 +3227,11 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
3225 (remove-hook 'tooltip-hook 'gud-tooltip-tips) 3227 (remove-hook 'tooltip-hook 'gud-tooltip-tips)
3226 (define-key global-map [mouse-movement] 'ignore))) 3228 (define-key global-map [mouse-movement] 'ignore)))
3227 (gud-tooltip-activate-mouse-motions-if-enabled) 3229 (gud-tooltip-activate-mouse-motions-if-enabled)
3228 (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)) 3230 (if (and
3231 gud-comint-buffer
3232 (buffer-name gud-comint-buffer); gud-comint-buffer might be kille
3233 (with-current-buffer gud-comint-buffer
3234 (memq gud-minor-mode '(gdbmi gdba))))
3229 (if gud-tooltip-mode 3235 (if gud-tooltip-mode
3230 (progn 3236 (progn
3231 (dolist (buffer (buffer-list)) 3237 (dolist (buffer (buffer-list))