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." |