Mercurial > emacs
comparison lisp/gud.el @ 15819:4ab015189fd1
(gdb): Undo previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 Aug 1996 22:37:47 +0000 |
| parents | 6081df437242 |
| children | fdb78e6e5701 |
comparison
equal
deleted
inserted
replaced
| 15818:574ec5119c7a | 15819:4ab015189fd1 |
|---|---|
| 266 (defun gdb (command-line) | 266 (defun gdb (command-line) |
| 267 "Run gdb on program FILE in buffer *gud-FILE*. | 267 "Run gdb on program FILE in buffer *gud-FILE*. |
| 268 The directory containing FILE becomes the initial working directory | 268 The directory containing FILE becomes the initial working directory |
| 269 and source-file directory for your debugger." | 269 and source-file directory for your debugger." |
| 270 (interactive | 270 (interactive |
| 271 (list (let ((comint-file-name-regexp "~/A-Za-z0-9+@:_.$#%,={}-")) | 271 (list (read-from-minibuffer "Run gdb (like this): " |
| 272 (read-from-minibuffer "Run gdb (like this): " | 272 (if (consp gud-gdb-history) |
| 273 (if (consp gud-gdb-history) | 273 (car gud-gdb-history) |
| 274 (car gud-gdb-history) | 274 "gdb ") |
| 275 "gdb ") | 275 gdb-minibuffer-local-map nil |
| 276 gdb-minibuffer-local-map nil | 276 '(gud-gdb-history . 1)))) |
| 277 '(gud-gdb-history . 1))))) | |
| 278 | 277 |
| 279 (gud-common-init command-line 'gud-gdb-massage-args | 278 (gud-common-init command-line 'gud-gdb-massage-args |
| 280 'gud-gdb-marker-filter 'gud-gdb-find-file) | 279 'gud-gdb-marker-filter 'gud-gdb-find-file) |
| 281 | 280 |
| 282 (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.") | 281 (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.") |