Mercurial > emacs

comparison lisp/progmodes/gud.el @ 90143:146c086df160

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)