Mercurial > emacs
comparison lisp/progmodes/gud.el @ 61484:cf57400d9ae5
(gud-display-line): GUD uses its own
overlay arrow now so don't set overlay-arrow-string.
(gud-pdb-command-name): Revert back to "pdb" (2004-04-26).
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 11 Apr 2005 22:32:24 +0000 |
| parents | e1f821140a5a |
| children | bf16f5363740 |
comparison
equal
deleted
inserted
replaced
| 61483:37ae5daea4e7 | 61484:cf57400d9ae5 |
|---|---|
| 1415 (setq output (concat output gud-marker-acc) | 1415 (setq output (concat output gud-marker-acc) |
| 1416 gud-marker-acc "")) | 1416 gud-marker-acc "")) |
| 1417 | 1417 |
| 1418 output)) | 1418 output)) |
| 1419 | 1419 |
| 1420 (defcustom gud-pdb-command-name "pydb" | 1420 (defcustom gud-pdb-command-name "pdb" |
| 1421 "File name for executing the Python debugger. | 1421 "File name for executing the Python debugger. |
| 1422 This should be an executable on your path, or an absolute file name." | 1422 This should be an executable on your path, or an absolute file name." |
| 1423 :type 'string | 1423 :type 'string |
| 1424 :group 'gud) | 1424 :group 'gud) |
| 1425 | 1425 |
| 2612 (setq gud-keep-buffer t))) | 2612 (setq gud-keep-buffer t))) |
| 2613 (save-restriction | 2613 (save-restriction |
| 2614 (widen) | 2614 (widen) |
| 2615 (goto-line line) | 2615 (goto-line line) |
| 2616 (setq pos (point)) | 2616 (setq pos (point)) |
| 2617 (setq overlay-arrow-string "=>") | |
| 2618 (or gud-overlay-arrow-position | 2617 (or gud-overlay-arrow-position |
| 2619 (setq gud-overlay-arrow-position (make-marker))) | 2618 (setq gud-overlay-arrow-position (make-marker))) |
| 2620 (set-marker gud-overlay-arrow-position (point) (current-buffer))) | 2619 (set-marker gud-overlay-arrow-position (point) (current-buffer))) |
| 2621 (cond ((or (< pos (point-min)) (> pos (point-max))) | 2620 (cond ((or (< pos (point-min)) (> pos (point-max))) |
| 2622 (widen) | 2621 (widen) |