Mercurial > emacs
comparison lisp/progmodes/gud.el @ 64697:7767f4fb012a
* 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.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 01 Aug 2005 08:29:11 +0000 |
| parents | 1009f071639a |
| children | b2d245bb54da edf295560b5a |
comparison
equal
deleted
inserted
replaced
| 64696:829e05f2dcaf | 64697:7767f4fb012a |
|---|---|
| 2 | 2 |
| 3 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 3 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
| 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 |
| 11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 12 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
| 3207 (if gud-tooltip-dereference "on" "off")))) | 3208 (if gud-tooltip-dereference "on" "off")))) |
| 3208 | 3209 |
| 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 |
| 3215 :group 'gud | 3217 :group 'gud |
| 3216 (require 'tooltip) | 3218 (require 'tooltip) |
| 3223 (unless tooltip-mode (remove-hook 'pre-command-hook 'tooltip-hide) | 3225 (unless tooltip-mode (remove-hook 'pre-command-hook 'tooltip-hide) |
| 3224 (remove-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode) | 3226 (remove-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode) |
| 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)) |
| 3232 (unless (eq buffer gud-comint-buffer) | 3238 (unless (eq buffer gud-comint-buffer) |
| 3233 (with-current-buffer buffer | 3239 (with-current-buffer buffer |