mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

Fixed shell region sending

Browse source
This commit is contained in:
Fabián Ezequiel Gallina 2012-05-17 00:02:56 -03:00 • committed by Fabián Ezequiel Gallina
parent 4e531f7a7e
commit 13d914ed50
1 changed files with 8 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/progmodes/python.el
View file

@ -1018,11 +1018,12 @@ commands.)"
dedicated-proc-buffer-name
global-proc-buffer-name))))
(defun python-shell-send-string (string)
(defun python-shell-send-string (string &optional process)
"Send STRING to inferior Python process."
(interactive "sPython command: ")
(let ((process (python-shell-get-or-create-process)))
(message (format "Sent: %s..." string))
(let ((process (or process (python-shell-get-or-create-process))))
(when (called-interactively-p)
(message (format "Sent: %s..." string)))
(comint-send-string process string)
(when (or (not (string-match "\n$" string))
(string-match "\n[ \t].*\n?$" string))
@ -1073,17 +1074,11 @@ When argument ARG is non-nil sends the innermost defun."
(interactive "fFile to send: ")
(let ((process (or process (python-shell-get-or-create-process)))
(full-file-name (expand-file-name file-name)))
(accept-process-output process)
(with-current-buffer (process-buffer process)
(delete-region (save-excursion
(move-to-column 0)
(point-marker))
(line-end-position)))
(comint-send-string
process
(python-shell-send-string
(format
"with open('%s') as __pyfile: exec(compile(__pyfile.read(), '%s', 'exec'))\n\n"
full-file-name full-file-name))))
"__pyfile = open('%s'); exec(compile(__pyfile.read(), '%s', 'exec')); __pyfile.close()"
full-file-name full-file-name)
process)))
(defun python-shell-switch-to-shell ()
"Switch to inferior Python process buffer."