From 499719b7762b7dea99f0306b9d907ba50432215e Mon Sep 17 00:00:00 2001
From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 5 Jun 2011 02:32:23 +0200
Subject: [PATCH] Fixes bug#8730, bug#8781.  Do not merge into trunk.

lisp/progmodes/python.el (python-after-info-look): Add autoload cookie.
(python-unload-function): New function.
---
 lisp/ChangeLog           |  5 +++++
 lisp/progmodes/python.el | 27 +++++++++++++++++++++++++++
 2 files changed, 32 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 805cee8021a..c403c8045d2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-05  Juanma Barranquero  <lekktu@gmail.com>
+
+	* progmodes/python.el (python-after-info-look): Add autoload cookie.
+	(python-unload-function): New function. (Bug#8730, bug#8781)
+
 2011-06-04  Reuben Thomas <rrt@sc3d.org>
 
 	* progmodes/flymake.el (flymake-compilation-prevents-syntax-check):
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 86f82432578..f2dbdb5a013 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1914,6 +1914,7 @@ instance.  Assumes an inferior Python is running."
 
 (declare-function info-lookup-maybe-add-help "info-look" (&rest arg))
 
+;;;###autoload
 (defun python-after-info-look ()
   "Set up info-look for Python.
 Used with `eval-after-load'."
@@ -2895,6 +2896,32 @@ filter."
 (defun python-sentinel (proc msg)
   (setq overlay-arrow-position nil))
 
+(defun python-unload-function ()
+  "Unload the Python library."
+  (let* ((default-mode (default-value 'major-mode))
+         (inferior-mode (or (get 'inferior-python-mode 'derived-mode-parent)
+                            default-mode)))
+    (dolist (buffer (buffer-list))
+      (set-buffer buffer)
+      (cond ((memq major-mode '(python-mode jython-mode))
+             (funcall default-mode))
+            ((eq major-mode 'inferior-python-mode)
+             (remove-hook 'comint-preoutput-filter-functions
+                          'python-preoutput-filter t)
+             (remove-hook 'comint-output-filter-functions
+                          'python-comint-output-filter-function t)
+             (let ((proc (get-buffer-process (current-buffer))))
+               (if (not proc)
+                   (funcall default-mode)
+                 (set-process-sentinel proc nil)
+                 (funcall inferior-mode)))))))
+  (setq minor-mode-alist (assq-delete-all 'python-pdbtrack-is-tracking-p
+                                          minor-mode-alist))
+  (dolist (error '("^No symbol" "^Can't shift all lines enough"))
+    (setq debug-ignored-errors (delete error debug-ignored-errors)))
+  ;; continue standard unloading
+  nil)
+
 (provide 'python)
 (provide 'python-21)
 
-- 
2.39.5