(python-eldoc-function): Re-enable quit while waiting for process.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8ec23f04e5e3ca20951cee14e26c4e33db84217..a82cdbb83d89ce724d991afbe8b3f3d5f8b41ef1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-30  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/python.el (python-eldoc-function): Re-enable quit while
+       waiting for process.
+
 2006-08-30  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
        * term/mac-win.el (mac-string-to-utxt): If adjustment for MacJapanese
@@ -5,8 +10,8 @@
 
 2006-08-29  Romain Francoise  <romain@orebokech.com>
 
-       * startup.el (normal-splash-screen, fancy-splash-screens): Make
-       buffer read-only and arrange to enter view mode if necessary.
+       * startup.el (normal-splash-screen, fancy-splash-screens):
+       Make buffer read-only and arrange to enter view mode if necessary.
 
 2006-08-29  Chong Yidong  <cyd@stupidchicken.com>
 

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index ca22e36cb40064ea49ac454a322be3738f25e062..66d8cd4714f9f9425df57944569761f37fb19a84 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1599,24 +1599,26 @@ Only works when point is in a function name, not its arg list, for
 instance.  Assumes an inferior Python is running."
   (let ((symbol (with-syntax-table python-dotty-syntax-table
                  (current-word))))
-    ;; First try the symbol we're on.
-    (or (and symbol
-            (python-send-receive (format "emacs.eargs(%S, %s)"
-                                         symbol python-imports)))
-       ;; Try moving to symbol before enclosing parens.
-       (let ((s (syntax-ppss)))
-         (unless (zerop (car s))
-           (when (eq ?\( (char-after (nth 1 s)))
-             (save-excursion
-               (goto-char (nth 1 s))
-               (skip-syntax-backward "-")
-               (let ((point (point)))
-                 (skip-chars-backward "a-zA-Z._")
-                 (if (< (point) point)
-                     (python-send-receive
-                      (format "emacs.eargs(%S, %s)"
-                              (buffer-substring-no-properties (point) point)
-                              python-imports)))))))))))
+    ;; This is run from timers, so inhibit-quit tends to be set.
+    (with-local-quit
+      ;; First try the symbol we're on.
+      (or (and symbol
+               (python-send-receive (format "emacs.eargs(%S, %s)"
+                                            symbol python-imports)))
+          ;; Try moving to symbol before enclosing parens.
+          (let ((s (syntax-ppss)))
+            (unless (zerop (car s))
+              (when (eq ?\( (char-after (nth 1 s)))
+                (save-excursion
+                  (goto-char (nth 1 s))
+                  (skip-syntax-backward "-")
+                  (let ((point (point)))
+                    (skip-chars-backward "a-zA-Z._")
+                    (if (< (point) point)
+                        (python-send-receive
+                         (format "emacs.eargs(%S, %s)"
+                                 (buffer-substring-no-properties (point) point)
+                                 python-imports))))))))))))
 \f
 ;;;; Info-look functionality.