Make the sys.path remove in Python mode customizable (Bug#7454).

* progmodes/python.el (run-python): Doc fix.
(python-keep-current-directory-in-path): New var (Bug#7454).

diff --git a/etc/NEWS b/etc/NEWS
index 8e5115c6cae359340299ca6a9d868c5e255c1951..4a7b9a5259f43e33a475ff75e4ecb93fbb9e7290 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -36,6 +36,10 @@ used on x86-64 and s390x GNU/Linux architectures.
 ** The appt-add command takes an optional argument for the warning time.
 This can be used in place of the default appt-message-warning-time.
 
+---
+** You can allow inferior Python processes to load modules from the
+current directory by setting `python-remove-cwd-from-path' to nil.
+
 ** VC and related modes
 
 *** New VC command `vc-log-incoming', bound to `C-x v I'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f0308be41b4fbc9245a426972a805e83080c3b2..4796239b3665510d04a096c0ba863679171cdf21 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-11-21  Chong Yidong  <cyd@stupidchicken.com>
+
+       * progmodes/python.el (run-python): Doc fix.
+       (python-keep-current-directory-in-path): New var (Bug#7454).
+
 2010-11-20  Chong Yidong  <cyd@stupidchicken.com>
 
        * lpr.el (lpr-buffer, print-buffer, lpr-region, print-region):

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 5d528e5fa283e6b33efcf3c18df59cd777609619..653ef3150e5442aea97c46379d067105a8b05544 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1426,6 +1426,16 @@ Default ignores all inputs of 0, 1, or 2 non-blank characters."
   :type 'regexp
   :group 'python)
 
+(defcustom python-remove-cwd-from-path t
+  "Whether to allow loading of Python modules from the current directory.
+If this is non-nil, Emacs removes '' from sys.path when starting
+an inferior Python process.  This is the default, for security
+reasons, as it is easy for the Python process to be started
+without the user's realization (e.g. to perform completion)."
+  :type 'boolean
+  :group 'python
+  :version "23.3")
+
 (defun python-input-filter (str)
   "`comint-input-filter' function for inferior Python.
 Don't save anything for STR matching `inferior-python-filter-regexp'."
@@ -1523,20 +1533,24 @@ Don't save anything for STR matching `inferior-python-filter-regexp'."
 ;;;###autoload
 (defun run-python (&optional cmd noshow new)
   "Run an inferior Python process, input and output via buffer *Python*.
-CMD is the Python command to run.  NOSHOW non-nil means don't show the
-buffer automatically.
-
-Normally, if there is a process already running in `python-buffer',
-switch to that buffer.  Interactively, a prefix arg allows you to edit
-the initial command line (default is `python-command'); `-i' etc. args
-will be added to this as appropriate.  A new process is started if:
-one isn't running attached to `python-buffer', or interactively the
-default `python-command', or argument NEW is non-nil.  See also the
-documentation for `python-buffer'.
-
-Runs the hook `inferior-python-mode-hook' \(after the
-`comint-mode-hook' is run).  \(Type \\[describe-mode] in the process
-buffer for a list of commands.)"
+CMD is the Python command to run.  NOSHOW non-nil means don't
+show the buffer automatically.
+
+Interactively, a prefix arg means to prompt for the initial
+Python command line (default is `python-command').
+
+A new process is started if one isn't running attached to
+`python-buffer', or if called from Lisp with non-nil arg NEW.
+Otherwise, if a process is already running in `python-buffer',
+switch to that buffer.
+
+This command runs the hook `inferior-python-mode-hook' after
+running `comint-mode-hook'.  Type \\[describe-mode] in the
+process buffer for a list of commands.
+
+By default, Emacs inhibits the loading of Python modules from the
+current working directory, for security reasons.  To disable this
+behavior, change `python-remove-cwd-from-path' to nil."
   (interactive (if current-prefix-arg
                   (list (read-string "Run Python: " python-command) nil t)
                 (list python-command)))
@@ -1549,9 +1563,9 @@ buffer for a list of commands.)"
   (when (or new (not (comint-check-proc python-buffer)))
     (with-current-buffer
        (let* ((cmdlist
-               (append (python-args-to-list cmd)
-                        ;; See http://lists.gnu.org/archive/html/emacs-devel/2008-09/msg00215.html
-                       '("-i" "-c" "import sys; sys.path.remove('')")))
+               (append (python-args-to-list cmd) '("-i")
+                       (if python-remove-cwd-from-path
+                           '("-c" "import sys; sys.path.remove('')"))))
               (path (getenv "PYTHONPATH"))
               (process-environment     ; to import emacs.py
                (cons (concat "PYTHONPATH="