aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorNick Roberts <[email protected]>2005-08-01 08:29:11 +0000
committerNick Roberts <[email protected]>2005-08-01 08:29:11 +0000
commitbfa93501f0713fedd6648d6e41131cdd8abb1393 (patch)
treea79c1dafff14354e60df70adb857d09530ab92d1 /lisp/progmodes
parente37a0f2dba81fe8fa4bedbf5e78b6134e7ce9d63 (diff)
* 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.
Diffstat (limited to 'lisp/progmodes')
-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 8e574e912c..7f1d2ad209 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -201,6 +201,7 @@ detailed description of this mode.
(defvar gdb-debug-log nil)
+;;;###autoload
(defcustom gdb-enable-debug-log nil
"Non-nil means record the process input and output in `gdb-debug-log'."
:type 'boolean
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index f93ff3d7e0..22b0b7b36d 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -4,7 +4,8 @@
;; Maintainer: FSF
;; Keywords: unix, tools
-;; Copyright (C) 1992,93,94,95,96,1998,2000,02,03,04,05 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003,
+;; 2004, 2005 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -3209,6 +3210,7 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
(define-obsolete-function-alias 'tooltip-gud-toggle-dereference
'toggle-gud-tooltip-dereference "22.1")
+;;;###autoload
(define-minor-mode gud-tooltip-mode
"Toggle the display of GUD tooltips."
:global t
@@ -3225,7 +3227,11 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
(remove-hook 'tooltip-hook 'gud-tooltip-tips)
(define-key global-map [mouse-movement] 'ignore)))
(gud-tooltip-activate-mouse-motions-if-enabled)
- (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
+ (if (and
+ gud-comint-buffer
+ (buffer-name gud-comint-buffer); gud-comint-buffer might be kille
+ (with-current-buffer gud-comint-buffer
+ (memq gud-minor-mode '(gdbmi gdba))))
(if gud-tooltip-mode
(progn
(dolist (buffer (buffer-list))