Mercurial > emacs
comparison lisp/progmodes/gud.el @ 90143:146c086df160
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-37
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 241-257)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 59-65)
- Update from CVS
- Merge from emacs--cvs-trunk--0
- (mm-string-to-multibyte): Use Gnus trunk definition.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 14 Apr 2005 05:03:52 +0000 |
parents | 4da4a09e8b1b bf16f5363740 |
children | e1fbb019c538 |
comparison
equal
deleted
inserted
replaced
90142:627771f44771 | 90143:146c086df160 |
---|---|
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 |
2516 (if gud-filter-pending-text | 2516 (if gud-filter-pending-text |
2517 (gud-filter proc "")))))) | 2517 (gud-filter proc "")))))) |
2518 | 2518 |
2519 (defvar gud-minor-mode-type nil) | 2519 (defvar gud-minor-mode-type nil) |
2520 (defvar gud-overlay-arrow-position nil) | 2520 (defvar gud-overlay-arrow-position nil) |
2521 (put 'gud-overlay-arrow-position 'overlay-arrow-string "=>") | |
2522 (add-to-list 'overlay-arrow-variable-list 'gud-overlay-arrow-position) | 2521 (add-to-list 'overlay-arrow-variable-list 'gud-overlay-arrow-position) |
2523 | 2522 |
2524 (defun gud-sentinel (proc msg) | 2523 (defun gud-sentinel (proc msg) |
2525 (cond ((null (buffer-name (process-buffer proc))) | 2524 (cond ((null (buffer-name (process-buffer proc))) |
2526 ;; buffer killed | 2525 ;; buffer killed |
2612 (setq gud-keep-buffer t))) | 2611 (setq gud-keep-buffer t))) |
2613 (save-restriction | 2612 (save-restriction |
2614 (widen) | 2613 (widen) |
2615 (goto-line line) | 2614 (goto-line line) |
2616 (setq pos (point)) | 2615 (setq pos (point)) |
2617 (setq overlay-arrow-string "=>") | |
2618 (or gud-overlay-arrow-position | 2616 (or gud-overlay-arrow-position |
2619 (setq gud-overlay-arrow-position (make-marker))) | 2617 (setq gud-overlay-arrow-position (make-marker))) |
2620 (set-marker gud-overlay-arrow-position (point) (current-buffer))) | 2618 (set-marker gud-overlay-arrow-position (point) (current-buffer))) |
2621 (cond ((or (< pos (point-min)) (> pos (point-max))) | 2619 (cond ((or (< pos (point-min)) (> pos (point-max))) |
2622 (widen) | 2620 (widen) |