diff options
Diffstat (limited to 'lisp/progmodes/python.el')
| -rw-r--r-- | lisp/progmodes/python.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 76901aaa69e..0611a4c9b45 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -1061,6 +1061,17 @@ commands.)" | |||
| 1061 | (message (format "Sent: %s..." | 1061 | (message (format "Sent: %s..." |
| 1062 | (buffer-substring (point-min) | 1062 | (buffer-substring (point-min) |
| 1063 | (line-end-position))))) | 1063 | (line-end-position))))) |
| 1064 | ;; Fix Windows/MS-DOS temp file path | ||
| 1065 | (when (or (eq system-type 'windows-nt) | ||
| 1066 | (eq system-type 'ms-dos) | ||
| 1067 | (eq system-type 'cygwin)) | ||
| 1068 | (setq temp-file | ||
| 1069 | (with-temp-buffer | ||
| 1070 | (insert temp-file) | ||
| 1071 | (goto-char (point-min)) | ||
| 1072 | (while (search-forward "/" nil t) | ||
| 1073 | (replace-match "\\" nil t)) | ||
| 1074 | (buffer-substring (point-min) (point-max))))) | ||
| 1064 | (with-current-buffer (process-buffer process) | 1075 | (with-current-buffer (process-buffer process) |
| 1065 | (setq inferior-python-mode-current-file current-file) | 1076 | (setq inferior-python-mode-current-file current-file) |
| 1066 | (setq inferior-python-mode-current-temp-file temp-file)) | 1077 | (setq inferior-python-mode-current-temp-file temp-file)) |