Mercurial > emacs
comparison lisp/progmodes/gud.el @ 94024:9addbbd02f71
Move non-autoloaded define-obsolete-variable-alias calls for
defcustoms not in dumped files before the associated defcustom.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 12 Apr 2008 03:13:54 +0000 |
parents | 1e3a407766b9 |
children | 006de67af578 |
comparison
equal
deleted
inserted
replaced
94023:1841ac94b011 | 94024:9addbbd02f71 |
---|---|
3271 (add-hook 'after-save-hook | 3271 (add-hook 'after-save-hook |
3272 'gdb-create-define-alist nil t)))))) | 3272 'gdb-create-define-alist nil t)))))) |
3273 (kill-local-variable 'gdb-define-alist) | 3273 (kill-local-variable 'gdb-define-alist) |
3274 (remove-hook 'after-save-hook 'gdb-create-define-alist t)))) | 3274 (remove-hook 'after-save-hook 'gdb-create-define-alist t)))) |
3275 | 3275 |
3276 (define-obsolete-variable-alias 'tooltip-gud-modes | |
3277 'gud-tooltip-modes "22.1") | |
3278 | |
3276 (defcustom gud-tooltip-modes '(gud-mode c-mode c++-mode fortran-mode | 3279 (defcustom gud-tooltip-modes '(gud-mode c-mode c++-mode fortran-mode |
3277 python-mode) | 3280 python-mode) |
3278 "List of modes for which to enable GUD tooltips." | 3281 "List of modes for which to enable GUD tooltips." |
3279 :type 'sexp | 3282 :type 'sexp |
3280 :group 'gud | 3283 :group 'gud |
3281 :group 'tooltip) | 3284 :group 'tooltip) |
3282 | 3285 |
3286 (define-obsolete-variable-alias 'tooltip-gud-display | |
3287 'gud-tooltip-display "22.1") | |
3288 | |
3283 (defcustom gud-tooltip-display | 3289 (defcustom gud-tooltip-display |
3284 '((eq (tooltip-event-buffer gud-tooltip-event) | 3290 '((eq (tooltip-event-buffer gud-tooltip-event) |
3285 (marker-buffer gud-overlay-arrow-position))) | 3291 (marker-buffer gud-overlay-arrow-position))) |
3286 "List of forms determining where GUD tooltips are displayed. | 3292 "List of forms determining where GUD tooltips are displayed. |
3287 | 3293 |
3294 (defcustom gud-tooltip-echo-area nil | 3300 (defcustom gud-tooltip-echo-area nil |
3295 "Use the echo area instead of frames for GUD tooltips." | 3301 "Use the echo area instead of frames for GUD tooltips." |
3296 :type 'boolean | 3302 :type 'boolean |
3297 :group 'gud | 3303 :group 'gud |
3298 :group 'tooltip) | 3304 :group 'tooltip) |
3299 | |
3300 (define-obsolete-variable-alias 'tooltip-gud-modes | |
3301 'gud-tooltip-modes "22.1") | |
3302 (define-obsolete-variable-alias 'tooltip-gud-display | |
3303 'gud-tooltip-display "22.1") | |
3304 | 3305 |
3305 ;;; Reacting on mouse movements | 3306 ;;; Reacting on mouse movements |
3306 | 3307 |
3307 (defun gud-tooltip-change-major-mode () | 3308 (defun gud-tooltip-change-major-mode () |
3308 "Function added to `change-major-mode-hook' when tooltip mode is on." | 3309 "Function added to `change-major-mode-hook' when tooltip mode is on." |