diff options
author | Barry Warsaw <barry@python.org> | 1998-05-19 15:01:06 (GMT) |
---|---|---|
committer | Barry Warsaw <barry@python.org> | 1998-05-19 15:01:06 (GMT) |
commit | ebc7b7ac45cb61df48a38b3242fcf38e4ee25565 (patch) | |
tree | 0002e3c240c3509ca09cd0b7aa19e1f4d3731040 /Misc | |
parent | 145ab1ce9d3bb45135487b5349243deda94baadc (diff) | |
download | cpython-ebc7b7ac45cb61df48a38b3242fcf38e4ee25565.zip cpython-ebc7b7ac45cb61df48a38b3242fcf38e4ee25565.tar.gz cpython-ebc7b7ac45cb61df48a38b3242fcf38e4ee25565.tar.bz2 |
More ME patches:
(py-shell): Recognize the Python debugger prompt
(py-jump-to-exception): Force into python-mode any buffer that gets
jumped to on exception. Cope with py-exception-buffer possibly a
cons.
Diffstat (limited to 'Misc')
-rw-r--r-- | Misc/python-mode.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Misc/python-mode.el b/Misc/python-mode.el index a9df6e7..1cb3dba 100644 --- a/Misc/python-mode.el +++ b/Misc/python-mode.el @@ -1252,7 +1252,7 @@ filter." (switch-to-buffer-other-window (apply 'make-comint py-which-bufname py-which-shell nil py-which-args)) (make-local-variable 'comint-prompt-regexp) - (setq comint-prompt-regexp "^>>> \\|^[.][.][.] ") + (setq comint-prompt-regexp "^>>> \\|^[.][.][.] \\|^(pdb) ") (set-process-filter (get-buffer-process (current-buffer)) 'py-process-filter) (set-syntax-table py-mode-syntax-table) ;; set up keybindings for this subshell @@ -1354,7 +1354,9 @@ See the `\\[py-execute-region]' docs for an account of some subtleties." (defun py-jump-to-exception (file line) (let ((buffer (cond ((string-equal file "<stdin>") - py-exception-buffer) + (if (consp py-exception-buffer) + (cdr py-exception-buffer) + py-exception-buffer)) ((and (consp py-exception-buffer) (string-equal file (car py-exception-buffer))) (cdr py-exception-buffer)) @@ -1365,6 +1367,9 @@ See the `\\[py-execute-region]' docs for an account of some subtleties." nil file t)))))) (pop-to-buffer buffer) + ;; Force Python mode + (if (not (eq major-mode) 'python-mode) + (python-mode)) (goto-line line) (message "Jumping to exception in file %s on line %d" file line))) |