Mercurial > emacs
comparison lisp/progmodes/python.el @ 78357:fb9000547438
(run-python): Fix path separator under w32.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sat, 28 Jul 2007 20:24:19 +0000 |
parents | c1ec1c8a8d2e |
children | 419c5c316b51 e126e09e6ac7 |
comparison
equal
deleted
inserted
replaced
78356:dc356155b0a7 | 78357:fb9000547438 |
---|---|
1349 (with-current-buffer | 1349 (with-current-buffer |
1350 (let* ((cmdlist (append (python-args-to-list cmd) '("-i"))) | 1350 (let* ((cmdlist (append (python-args-to-list cmd) '("-i"))) |
1351 (path (getenv "PYTHONPATH")) | 1351 (path (getenv "PYTHONPATH")) |
1352 (process-environment ; to import emacs.py | 1352 (process-environment ; to import emacs.py |
1353 (cons (concat "PYTHONPATH=" data-directory | 1353 (cons (concat "PYTHONPATH=" data-directory |
1354 (if path (concat ":" path))) | 1354 (if path (concat path-separator path))) |
1355 process-environment))) | 1355 process-environment))) |
1356 (apply 'make-comint-in-buffer "Python" | 1356 (apply 'make-comint-in-buffer "Python" |
1357 (if new (generate-new-buffer "*Python*") "*Python*") | 1357 (if new (generate-new-buffer "*Python*") "*Python*") |
1358 (car cmdlist) nil (cdr cmdlist))) | 1358 (car cmdlist) nil (cdr cmdlist))) |
1359 (setq-default python-buffer (current-buffer)) | 1359 (setq-default python-buffer (current-buffer)) |