(py-execute-region): If the line at the beginning of the region is a

#! line, use the command on that line as the shell command to use to
execute the region.  I.e. if the region looks like

----------------
#! /usr/bin/env python1.5

print 'hello world'.startswith('hello')
----------------

you'll get an exception! :)

This closes SF bug #232398.

1 files changed, 11 insertions, 6 deletions

diff --git a/Misc/python-mode.el b/Misc/python-mode.el
index aca7240..5a9bff1 100644
--- a/Misc/python-mode.el
+++ b/Misc/python-mode.el
@@ -1359,10 +1359,16 @@ is inserted at the end.  See also the command `py-clear-queue'."
       (let ((needs-if (/= (py-point 'bol) (py-point 'boi))))
 	(set-buffer buf)
 	(python-mode)
-	(setq shell py-which-shell)
 	(when needs-if
 	  (insert "if 1:\n"))
-	(insert-buffer-substring cur start end)))
+	(insert-buffer-substring cur start end)
+	;; Set the shell either to the #! line command, or to the
+	;; py-which-shell buffer local variable.
+	(goto-char (point-min))
+	(if (looking-at "^#!\\s *\\(.*\\)$")
+	    (setq shell (match-string 1))
+	  ;; No useable #! line
+	  (setq shell py-which-shell))))
     (cond
      ;; always run the code in its own asynchronous subprocess
      (async
@@ -1392,10 +1398,9 @@ is inserted at the end.  See also the command `py-clear-queue'."
       (setq py-file-queue (append py-file-queue (list file)))
       (setq py-exception-buffer (cons file (current-buffer))))
      (t
-      ;; TBD: a horrible hack, buy why create new Custom variables?
-      (let ((cmd (concat shell
-			 (if (string-equal py-which-bufname "JPython")
-			     " -" ""))))
+      ;; TBD: a horrible hack, but why create new Custom variables?
+      (let ((cmd (concat shell (if (string-equal py-which-bufname "JPython")
+				   " -" ""))))
 	;; otherwise either run it synchronously in a subprocess
 	(save-excursion
 	  (set-buffer buf)