Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/progmodes/python.el (python-shell-get-buffer): New function.

Browse source 
(python-shell-get-process): Use it.
(python-shell-send-string): Always use utf-8 and add a cookie to tell
Python which encoding was used.  Don't split-string since we only care
about the first line.  Return the temp-file, if applicable.
(python-shell-send-region): Tell compile.el how to turn locations in
the temp-file into locations in the source buffer.
This commit is contained in:
Stefan Monnier 2013-10-29 21:28:36 -04:00
parent 4c9797cb77
commit 195ee2f0a9
2 changed files with 39 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,13 @@
2013-10-30 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/python.el (python-shell-get-buffer): New function.
(python-shell-get-process): Use it.
(python-shell-send-string): Always use utf-8 and add a cookie to tell
Python which encoding was used. Don't split-string since we only care
about the first line. Return the temp-file, if applicable.
(python-shell-send-region): Tell compile.el how to turn locations in
the temp-file into locations in the source buffer.
2013-10-29 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (undefined): Add missing behavior from the C code for

41
lisp/progmodes/python.el
View file

@ -1968,8 +1968,8 @@ startup."
(python-shell-parse-command)
(python-shell-internal-get-process-name) nil t))))
(defun python-shell-get-process ()
"Get inferior Python process for current buffer and return it."
(defun python-shell-get-buffer ()
"Get inferior Python buffer for current buffer and return it."
(let* ((dedicated-proc-name (python-shell-get-process-name t))
(dedicated-proc-buffer-name (format "*%s*" dedicated-proc-name))
(global-proc-name (python-shell-get-process-name nil))
@ -1977,8 +1977,12 @@ startup."
(dedicated-running (comint-check-proc dedicated-proc-buffer-name))
(global-running (comint-check-proc global-proc-buffer-name)))
;; Always prefer dedicated
(get-buffer-process (or (and dedicated-running dedicated-proc-buffer-name)
(and global-running global-proc-buffer-name)))))
(or (and dedicated-running dedicated-proc-buffer-name)
(and global-running global-proc-buffer-name))))
(defun python-shell-get-process ()
"Get inferior Python process for current buffer and return it."
(get-buffer-process (python-shell-get-buffer)))
(defun python-shell-get-or-create-process ()
"Get or create an inferior Python process for current buffer and return it."
@ -2034,26 +2038,32 @@ there for compatibility with CEDET.")
(defun python-shell-send-string (string &optional process msg)
"Send STRING to inferior Python PROCESS.
When MSG is non-nil messages the first line of STRING."
When MSG is non-nil messages the first line of STRING.
If a temp file is used, return its name, otherwise return nil."
(interactive "sPython command: ")
(let ((process (or process (python-shell-get-or-create-process)))
(lines (split-string string "\n" t)))
(and msg (message "Sent: %s..." (nth 0 lines)))
(if (> (length lines) 1)
(_ (string-match "\\`\n*\\(.*\\)\\(\n.\\)?" string))
(multiline (match-beginning 2)))
(and msg (message "Sent: %s..." (match-string 1 string)))
(if multiline
(let* ((temporary-file-directory
(if (file-remote-p default-directory)
(concat (file-remote-p default-directory) "/tmp")
temporary-file-directory))
(temp-file-name (make-temp-file "py"))
(coding-system-for-write 'utf-8)
(file-name (or (buffer-file-name) temp-file-name)))
(with-temp-file temp-file-name
(insert "# -*- coding: utf-8 -*-\n")
(insert string)
(delete-trailing-whitespace))
(python-shell-send-file file-name process temp-file-name))
(python-shell-send-file file-name process temp-file-name)
temp-file-name)
(comint-send-string process string)
(when (or (not (string-match "\n$" string))
(string-match "\n[ \t].*\n?$" string))
(comint-send-string process "\n")))))
(comint-send-string process "\n"))
nil)))
(defvar python-shell-output-filter-in-progress nil)
(defvar python-shell-output-filter-buffer nil)
@ -2179,11 +2189,18 @@ the python shell:
(line-number-at-pos if-name-main-start)) ?\n)))))
(buffer-substring-no-properties (point-min) (point-max)))))
(declare-function compilation-fake-loc "compile"
(marker file &optional line col))
(defun python-shell-send-region (start end)
"Send the region delimited by START and END to inferior Python process."
(interactive "r")
(python-shell-send-string
(python-shell-buffer-substring start end) nil t))
(let ((temp-file-name
(python-shell-send-string
(python-shell-buffer-substring start end) nil t)))
(when temp-file-name
(with-current-buffer (python-shell-get-buffer)
(compilation-fake-loc (copy-marker start) temp-file-name)))))
(defun python-shell-send-buffer (&optional arg)
"Send the entire buffer to inferior Python process.