]> git.eshelyaron.com Git - emacs.git/commitdiff
* progmodes/gdb-ui.el (gdb-enable-debug-log): Add autoload cookie.
authorNick Roberts <nickrob@snap.net.nz>
Mon, 1 Aug 2005 08:29:11 +0000 (08:29 +0000)
committerNick Roberts <nickrob@snap.net.nz>
Mon, 1 Aug 2005 08:29:11 +0000 (08:29 +0000)
* progmodes/gud.el (gud-tooltip-mode): Add autoload cookie.
(gud-tooltip-mode): Don't barf if the GUD buffer has been killed.

lisp/progmodes/gdb-ui.el
lisp/progmodes/gud.el

index 8e574e912c6c5d1bf5a88827e4c9ff70c6146bc5..7f1d2ad2092d6409909e639ee874453fad04ce31 100644 (file)
@@ -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
index f93ff3d7e02de7c4b22025b7be09a04ec1ee2679..22b0b7b36d62a5af540dfb89d8e714fb5d98c06b 100644 (file)
@@ -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))