Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 91950:d758efc0f23f
(gdb-output-sink): Define with an invalid value.
(gdb): Initialize it here instead.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 19 Feb 2008 04:30:50 +0000 |
| parents | 79ba128d9b58 |
| children | f991f10f15ec |
comparison
equal
deleted
inserted
replaced
| 91949:d3395bc69ea8 | 91950:d758efc0f23f |
|---|---|
| 148 "A list of gdb command objects.") | 148 "A list of gdb command objects.") |
| 149 | 149 |
| 150 (defvar gdb-prompting nil | 150 (defvar gdb-prompting nil |
| 151 "True when gdb is idle with no pending input.") | 151 "True when gdb is idle with no pending input.") |
| 152 | 152 |
| 153 (defvar gdb-output-sink 'user | 153 (defvar gdb-output-sink nil |
| 154 "The disposition of the output of the current gdb command. | 154 "The disposition of the output of the current gdb command. |
| 155 Possible values are these symbols: | 155 Possible values are these symbols: |
| 156 | 156 |
| 157 `user' -- gdb output should be copied to the GUD buffer | 157 `user' -- gdb output should be copied to the GUD buffer |
| 158 for the user to see. | 158 for the user to see. |
| 315 (gud-def gud-run "run" nil "Run the program.") | 315 (gud-def gud-run "run" nil "Run the program.") |
| 316 | 316 |
| 317 (local-set-key "\C-i" 'gud-gdb-complete-command) | 317 (local-set-key "\C-i" 'gud-gdb-complete-command) |
| 318 (setq comint-prompt-regexp "^(.*gdb[+]?) *") | 318 (setq comint-prompt-regexp "^(.*gdb[+]?) *") |
| 319 (setq paragraph-start comint-prompt-regexp) | 319 (setq paragraph-start comint-prompt-regexp) |
| 320 (setq gdb-output-sink 'user) | |
| 320 (setq gdb-first-prompt t) | 321 (setq gdb-first-prompt t) |
| 321 (setq gud-running nil) | 322 (setq gud-running nil) |
| 322 (setq gdb-ready nil) | 323 (setq gdb-ready nil) |
| 323 (setq gdb-flush-pending-output nil) | 324 (setq gdb-flush-pending-output nil) |
| 324 (setq gdb-early-user-input nil) | 325 (setq gdb-early-user-input nil) |