Mercurial > cpython-lru_cache-weakref

diff Misc/python-mode.el @ 11146:f62e465c4d01 legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(python-mode): Set which interpreter (CPython or JPython) to use the first time a py buffer is visited during the Emacs session. This ensures that py-which-shells is initialized and also guarantees that the mode lines reflect the correct shell. First bug found by GvR, second one has long bugged :) me. (py-toggle-shells): Programmatically, arg can also take the symbols `cpython' or `jpython', which makes it easy to call with the value of py-default-interpreter. (py-shell): Don't need to initialize py-which-* variables since these will guarantee to be initialized by python-mode when the first py buffer is visited. (py-default-interpreter): Update docstring.
author Barry Warsaw <barry@python.org>
date Wed, 28 Jul 1999 21:59:43 +0000
parents 41fcb40e841f
children bbd035e5a972
line wrap: on
line diff
--- a/Misc/python-mode.el	Wed Jul 28 21:39:28 1999 +0000
+++ b/Misc/python-mode.el	Wed Jul 28 21:59:43 1999 +0000
@@ -121,8 +121,8 @@
 `py-jpython-command-args' are consulted to determine the interpreter
 and arguments to use.
 
-Note that this variable is consulted only the first time that a Python 
-interpreter shell is started during an Emacs session.  After that, use 
+Note that this variable is consulted only the first time that a Python
+mode buffer is visited during an Emacs session.  After that, use
 \\[py-toggle-shells] to change the interpreter shell."
   :type '(choice (const :tag "Python (a.k.a. CPython)" cpython)
 		 (const :tag "JPython" jpython))
@@ -989,7 +989,11 @@
       ;; have explicitly turned it off.
       (if (/= tab-width py-indent-offset)
 	  (setq indent-tabs-mode nil))
-      )))
+      ))
+  ;; Set the default shell if not already set
+  (when (null py-which-shell)
+    (py-toggle-shells py-default-interpreter))
+  )
 
 
 ;; electric characters
@@ -1122,18 +1126,26 @@
 
 (defun py-toggle-shells (arg)
   "Toggles between the CPython and JPython shells.
+
 With positive argument ARG (interactively \\[universal-argument]),
 uses the CPython shell, with negative ARG uses the JPython shell, and
-with a zero argument, toggles the shell."
+with a zero argument, toggles the shell.
+
+Programmatically, ARG can also be one of the symbols `cpython' or
+`jpython', equivalent to positive arg and negative arg respectively."
   (interactive "P")
   ;; default is to toggle
   (if (null arg)
       (setq arg 0))
-  ;; toggle if zero
-  (if (= arg 0)
-      (if (string-equal py-which-bufname "Python")
-	  (setq arg -1)
-	(setq arg 1)))
+  ;; preprocess arg
+  (cond
+   ((equal arg 0)
+    ;; toggle
+    (if (string-equal py-which-bufname "Python")
+	(setq arg -1)
+      (setq arg 1)))
+   ((equal arg 'cpython) (setq arg 1))
+   ((equal arg 'jpython) (setq arg -1)))
   (let (msg)
     (cond
      ((< 0 arg)
@@ -1192,15 +1204,6 @@
 non-Python process buffers using the default (Emacs-supplied) process
 filter."
   (interactive "P")
-  (if (null py-which-shell)
-      (cond ((eq py-default-interpreter 'cpython)
-	     (setq py-which-shell py-python-command
-		   py-which-args py-python-command-args))
-	    ((eq py-default-interpreter 'jpython)
-	     (setq py-which-shell py-jpython-command
-		   py-which-args py-jpython-command-args))
-	    (t (error "Illegal value for `py-default-interpreter': %s"
-		      py-default-interpreter))))
   (let ((args py-which-args))
     (when (and argprompt
 	       (interactive-p)