aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFabián Ezequiel Gallina2012-05-17 00:03:31 -0300
committerFabián Ezequiel Gallina2012-05-17 00:03:31 -0300
commit76a9ea3bbb02add4edca960f0314a42e85e0069a (patch)
treef21a8029e7239e87dd643377a5e190a411b02a16
parentf6b59cd19050e3ef07cef9480aa4a032982eb591 (diff)
downloademacs-76a9ea3bbb02add4edca960f0314a42e85e0069a.tar.gz
emacs-76a9ea3bbb02add4edca960f0314a42e85e0069a.zip
Added `python-pdbtrack-activate' variable to allow users to activate/deactivate pdbtrack.
To keep in sync with the old behavior its default value is t.
-rw-r--r--lisp/progmodes/python.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index ce6382cf225..401d9fd0495 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1684,6 +1684,12 @@ to complete."
1684 1684
1685;;; PDB Track integration 1685;;; PDB Track integration
1686 1686
1687(defcustom python-pdbtrack-activate t
1688 "Non-nil makes python shell enable pdbtracking."
1689 :type 'boolean
1690 :group 'python
1691 :safe 'booleanp)
1692
1687(defcustom python-pdbtrack-stacktrace-info-regexp 1693(defcustom python-pdbtrack-stacktrace-info-regexp
1688 "^> \\([^\"(<]+\\)(\\([0-9]+\\))\\([?a-zA-Z0-9_<>]+\\)()" 1694 "^> \\([^\"(<]+\\)(\\([0-9]+\\))\\([?a-zA-Z0-9_<>]+\\)()"
1689 "Regular Expression matching stacktrace information. 1695 "Regular Expression matching stacktrace information.
@@ -1717,7 +1723,7 @@ Returns the tracked buffer."
1717(defun python-pdbtrack-comint-output-filter-function (output) 1723(defun python-pdbtrack-comint-output-filter-function (output)
1718 "Move overlay arrow to current pdb line in tracked buffer. 1724 "Move overlay arrow to current pdb line in tracked buffer.
1719Argument OUTPUT is a string with the output from the comint process." 1725Argument OUTPUT is a string with the output from the comint process."
1720 (when (not (string= output "")) 1726 (when (and python-pdbtrack-activate (not (string= output "")))
1721 (let* ((full-output (ansi-color-filter-apply 1727 (let* ((full-output (ansi-color-filter-apply
1722 (buffer-substring comint-last-input-end (point-max)))) 1728 (buffer-substring comint-last-input-end (point-max))))
1723 (line-number) 1729 (line-number)