diff options
| author | Stefan Monnier | 2006-08-26 14:39:16 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2006-08-26 14:39:16 +0000 |
| commit | 426348643ad31779a4a50d86e702faf8e479b09d (patch) | |
| tree | 4e1f4952e3329da1c60e329b86e7f291a987f4bf /lisp/progmodes/python.el | |
| parent | 854fa43e14f5c90333189bf895930c39aeaae662 (diff) | |
| download | emacs-426348643ad31779a4a50d86e702faf8e479b09d.tar.gz emacs-426348643ad31779a4a50d86e702faf8e479b09d.zip | |
(python-send-receive): Wait in the process's buffer so as to check the right
buffer-local variables.
Diffstat (limited to 'lisp/progmodes/python.el')
| -rw-r--r-- | lisp/progmodes/python.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index a7942c603f3..c38a6e82f83 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -1576,14 +1576,15 @@ will." | |||
| 1576 | (defun python-send-receive (string) | 1576 | (defun python-send-receive (string) |
| 1577 | "Send STRING to inferior Python (if any) and return result. | 1577 | "Send STRING to inferior Python (if any) and return result. |
| 1578 | The result is what follows `_emacs_out' in the output." | 1578 | The result is what follows `_emacs_out' in the output." |
| 1579 | (python-send-string string) | ||
| 1579 | (let ((proc (python-proc))) | 1580 | (let ((proc (python-proc))) |
| 1580 | (python-send-string string) | 1581 | (with-current-buffer (process-buffer proc) |
| 1581 | (set (make-local-variable 'python-preoutput-result) nil) | 1582 | (set (make-local-variable 'python-preoutput-result) nil) |
| 1582 | (while (progn | 1583 | (while (progn |
| 1583 | (accept-process-output proc 5) | 1584 | (accept-process-output proc 5) |
| 1584 | (null python-preoutput-result))) | 1585 | (null python-preoutput-result))) |
| 1585 | (prog1 python-preoutput-result | 1586 | (prog1 python-preoutput-result |
| 1586 | (kill-local-variable 'python-preoutput-result)))) | 1587 | (kill-local-variable 'python-preoutput-result))))) |
| 1587 | 1588 | ||
| 1588 | ;; Fixme: Is there anything reasonable we can do with random methods? | 1589 | ;; Fixme: Is there anything reasonable we can do with random methods? |
| 1589 | ;; (Currently only works with functions.) | 1590 | ;; (Currently only works with functions.) |