54789
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1 ;;; python.el --- silly walks for Python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
2
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
3 ;; Copyright (C) 2003, 04 Free Software Foundation, Inc.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
4
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
5 ;; Author: Dave Love <fx@gnu.org>
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
6 ;; Created: Nov 2003
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
7 ;; Keywords: languages
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
8
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
10
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
11 ;; This file is free software; you can redistribute it and/or modify
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
14 ;; any later version.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
15
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
16 ;; This file is distributed in the hope that it will be useful,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
20
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
23 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
24 ;; Boston, MA 02111-1307, USA.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
25
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
26 ;;; Commentary:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
27
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
28 ;; Major mode for editing Python, with support for inferior processes.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
29
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
30 ;; There is another Python mode, python-mode.el, used by XEmacs and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
31 ;; maintained with Python. That isn't covered by an FSF copyright
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
32 ;; assignment, unlike this code, and seems not to be well-maintained
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
33 ;; for Emacs (though I've submitted fixes). This mode is rather
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
34 ;; simpler and is, perhaps, better in other ways. In particular,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
35 ;; using the syntax functions with text properties maintained by
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
36 ;; font-lock should make it more correct with arbitrary string and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
37 ;; comment contents.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
38
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
39 ;; This doesn't implement all the facilities of python-mode.el. Some
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
40 ;; just need doing, e.g. catching exceptions in the inferior Python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
41 ;; buffer (but see M-x pdb for debugging). [Atually, the use of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
42 ;; `compilation-minor-mode' now is probably enough for that.] Others
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
43 ;; don't seem appropriate. For instance, `forward-into-nomenclature'
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
44 ;; should be done separately, since it's not specific to Python, and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
45 ;; I've installed a minor mode to do the job properly in Emacs 22.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
46 ;; Other things seem more natural or canonical here, e.g. the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
47 ;; {beginning,end}-of-defun implementation dealing with nested
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
48 ;; definitions, and the inferior mode following `cmuscheme'. (The
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
49 ;; inferior mode should be able to find the source of errors from
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
50 ;; `python-send-region' & al via `compilation-minor-mode', but I can't
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
51 ;; make that work with the current (March '04) compile.el.)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
52 ;; Successive TABs cycle between possible indentations for the line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
53
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
54 ;; Even where it has similar facilities, this is incompatible with
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
55 ;; python-mode.el in various respects. For instance, various key
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
56 ;; bindings are changed to obey Emacs conventions, and things like
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
57 ;; marking blocks and `beginning-of-defun' behave differently.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
58
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
59 ;;; Code:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
60
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
61 (require 'syntax) ; ensure appropriate version
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
62 ;; It's messy to autoload the relevant comint functions so that comint
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
63 ;; is only required when inferior Python is used.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
64 (require 'comint)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
65
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
66 (defgroup python nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
67 "Silly walks in the Python language"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
68 :group 'languages
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
69 :link '(emacs-commentary-link "python"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
70
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
71 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
72 (add-to-list 'interpreter-mode-alist '("jython" . jython-mode))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
73 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
74 (add-to-list 'interpreter-mode-alist '("python" . python-mode))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
75 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
76 (add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
77
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
78 ;;;; Font lock
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
79
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
80 (defvar python-font-lock-keywords
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
81 `(,(rx (and word-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
82 ;; From v 2.3 reference.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
83 ;; def and class dealt with separately below
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
84 (or "and" "assert" "break" "continue" "del" "elif" "else"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
85 "except" "exec" "finally" "for" "from" "global" "if"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
86 "import" "in" "is" "lambda" "not" "or" "pass" "print"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
87 "raise" "return" "try" "while" "yield"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
88 ;; Future keywords
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
89 "as" "None")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
90 word-end))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
91 (,(rx (and word-start (group "class") (1+ space) (group (1+ word))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
92 (1 font-lock-keyword-face) (2 font-lock-type-face))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
93 (,(rx (and word-start (group "def") (1+ space) (group (1+ word))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
94 (1 font-lock-keyword-face) (2 font-lock-function-name-face))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
95
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
96 (defconst python-font-lock-syntactic-keywords
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
97 ;; Make outer chars of matching triple-quote sequences into generic
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
98 ;; string delimiters. Fixme: Is there a better way?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
99 `((,(rx (and (group (optional (any "uUrR"))) ; prefix gets syntax property
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
100 (optional (any "rR")) ; possible second prefix
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
101 (group (syntax string-quote)) ; maybe gets property
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
102 (backref 2) ; per first quote
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
103 (group (backref 2)))) ; maybe gets property
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
104 (1 (python-quote-syntax 1)) (2 (python-quote-syntax 2))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
105 (3 (python-quote-syntax 3)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
106 ;; This doesn't really help.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
107 ;;; (,(rx (and ?\\ (group ?\n))) (1 " "))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
108 ))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
109
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
110 (defun python-quote-syntax (n)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
111 "Put `syntax-table' property correctly on triple quote.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
112 Used for syntactic keywords. N is the match number (1, 2 or 3)."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
113 ;; Given a triple quote, we have to look backwards for a previous
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
114 ;; occurrence of the sequence to know whether this is an opening or
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
115 ;; closing triple. We also have to sort out a possible prefix --
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
116 ;; well, we don't _have_ to, but I think it should be treated as
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
117 ;; part of the string.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
118 (let ((tag (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
119 (goto-char (match-beginning 0))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
120 (unless (eq ?\\ (char-before))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
121 (cond
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
122 ;; Look for a previous string fence.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
123 ((or (zerop (skip-syntax-backward "^|"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
124 (bobp))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
125 'start) ; no previous string fence
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
126 ;; Check fence on a matching quote.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
127 ((eq (char-before) (char-after (match-beginning 2)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
128 (if (eq (char-before) (char-after))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
129 'end ; fence ended string
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
130 'start)) ; began string
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
131 ;; Check for matching prefixed string.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
132 ((and (memq (char-before) '(?u ?U ?r ?R))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
133 (skip-chars-forward "rR"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
134 (if (eq (char-after) (char-after (match-beginning 2)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
135 'end)) ; else non-matching: return nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
136 ;; For non-matching quote, start new string.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
137 ((/= (char-before) (char-after))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
138 'start))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
139 (if (if (eq tag 'start) ; Maybe starts a new string.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
140 ;; Initial property if this is the prefix (empty or not) or
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
141 ;; isn't the prefix and the prefix is empty.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
142 (or (= n 1) (and (= n 2) (= (match-beginning 1) (match-end 1))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
143 (and (eq tag 'end) ; Maybe ends existing string.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
144 (= n 3))) ; Match is at end.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
145 (eval-when-compile (string-to-syntax "|"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
146 ;; Otherwise the property is nil, which is OK.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
147 )))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
148
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
149 ;; This isn't currently in `font-lock-defaults' as probably not worth
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
150 ;; it -- we basically only mess with a few normally-symbol characters.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
151
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
152 ;; (defun python-font-lock-syntactic-face-function (state)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
153 ;; "`font-lock-syntactic-face-function' for Python mode.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
154 ;; Returns the string or comment face as usual, with side effect of putting
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
155 ;; a `syntax-table' property on the inside of the string or comment which is
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
156 ;; the standard syntax table."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
157 ;; (if (nth 3 state)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
158 ;; (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
159 ;; (goto-char (nth 8 state))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
160 ;; (condition-case nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
161 ;; (forward-sexp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
162 ;; (error nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
163 ;; (put-text-property (1+ (nth 8 state)) (1- (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
164 ;; 'syntax-table (standard-syntax-table))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
165 ;; 'font-lock-string-face)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
166 ;; (put-text-property (1+ (nth 8 state)) (line-end-position)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
167 ;; 'syntax-table (standard-syntax-table))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
168 ;; 'font-lock-comment-face))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
169
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
170 ;;;; Keymap and syntax
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
171
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
172 (defvar python-mode-map
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
173 (let ((map (make-sparse-keymap)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
174 ;; Mostly taken from python-mode.el.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
175 (define-key map ":" 'python-electric-colon)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
176 (define-key map "\177" 'python-backspace)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
177 (define-key map "\C-c<" 'python-shift-left)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
178 (define-key map "\C-c>" 'python-shift-right)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
179 (define-key map "\C-c\C-k" 'python-mark-block)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
180 (define-key map "\C-c\C-n" 'python-next-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
181 (define-key map "\C-c\C-p" 'python-previous-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
182 (define-key map "\C-c\C-u" 'python-beginning-of-block)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
183 (define-key map "\C-c\C-f" 'python-describe-symbol)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
184 (define-key map "\C-c\C-w" 'python-check)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
185 (define-key map "\C-c\C-v" 'python-check) ; a la sgml-mode
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
186 (define-key map "\C-c\C-s" 'python-send-string)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
187 (define-key map [?\C-\M-x] 'python-send-defun)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
188 (define-key map "\C-c\C-r" 'python-send-region)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
189 (define-key map "\C-c\M-r" 'python-send-region-and-go)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
190 (define-key map "\C-c\C-c" 'python-send-buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
191 (define-key map "\C-c\C-z" 'python-switch-to-python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
192 (define-key map "\C-c\C-m" 'python-load-file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
193 (define-key map "\C-c\C-l" 'python-load-file) ; a la cmuscheme
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
194 ;; Fixme: Add :help to menu.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
195 (easy-menu-define python-menu map "Python Mode menu"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
196 '("Python"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
197 ["Shift region left" python-shift-left :active mark-active]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
198 ["Shift region right" python-shift-right :active mark-active]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
199 "-"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
200 ["Mark block" python-mark-block]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
201 ["Mark def/class" mark-defun
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
202 :help "Mark innermost definition around point"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
203 "-"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
204 ["Start of block" python-beginning-of-block]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
205 ["End of block" python-end-of-block]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
206 ["Start of def/class" beginning-of-defun
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
207 :help "Go to start of innermost definition around point"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
208 ["End of def/class" end-of-defun
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
209 :help "Go to end of innermost definition around point"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
210 "-"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
211 ["Start interpreter" run-python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
212 :help "Run `inferior' Python in separate buffer"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
213 ["Import/reload file" python-load-file
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
214 :help "Load into inferior Python session"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
215 ["Eval buffer" python-send-buffer
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
216 :help "Evaluate buffer en bloc in inferior Python session"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
217 ["Eval region" python-send-region :active mark-active
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
218 :help "Evaluate region en bloc in inferior Python session"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
219 ["Eval def/class" python-send-defun
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
220 :help "Evaluate current definition in inferior Python session"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
221 ["Switch to interpreter" python-switch-to-python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
222 :help "Switch to inferior Python buffer"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
223 ["Check file" python-check :help "Run pychecker"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
224 ["Debugger" pdb :help "Run pdb under GUD"]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
225 "-"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
226 ["Help on symbol" python-describe-symbol
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
227 :help "Use pydoc on symbol at point"]))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
228 map))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
229
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
230 (defvar python-mode-syntax-table
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
231 (let ((table (make-syntax-table)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
232 ;; Give punctuation syntax to ASCII that normally has symbol
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
233 ;; syntax or has word syntax and isn't a letter.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
234 (let ((symbol (string-to-syntax "_"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
235 (sst (standard-syntax-table)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
236 (dotimes (i 128)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
237 (unless (= i ?_)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
238 (if (equal symbol (aref sst i))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
239 (modify-syntax-entry i "." table)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
240 (modify-syntax-entry ?$ "." table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
241 (modify-syntax-entry ?% "." table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
242 ;; exceptions
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
243 (modify-syntax-entry ?# "<" table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
244 (modify-syntax-entry ?\n ">" table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
245 (modify-syntax-entry ?' "\"" table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
246 (modify-syntax-entry ?` "$" table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
247 table))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
248
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
249 ;;;; Utility stuff
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
250
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
251 (defsubst python-in-string/comment ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
252 "Return non-nil if point is in a Python literal (a comment or string).
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
253 Optional argument LIM indicates the beginning of the containing form,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
254 i.e. the limit on how far back to scan."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
255 (syntax-ppss-context (syntax-ppss)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
256
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
257 (defconst python-space-backslash-table
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
258 (let ((table (copy-syntax-table python-mode-syntax-table)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
259 (modify-syntax-entry ?\\ " " table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
260 table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
261 "`python-mode-syntax-table' with backslash given whitespace syntax.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
262
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
263 (defun python-skip-comments/blanks (&optional backward)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
264 "Skip comments and blank lines.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
265 BACKWARD non-nil means go backwards, otherwise go forwards. Backslash is
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
266 treated as whitespace so that continued blank lines are skipped.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
267 Doesn't move out of comments -- should be outside or at end of line."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
268 (with-syntax-table python-space-backslash-table
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
269 (forward-comment (if backward
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
270 most-negative-fixnum
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
271 most-positive-fixnum))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
272
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
273 (defun python-backslash-continuation-line-p ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
274 "Non-nil if preceding line ends with backslash that is not in a comment."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
275 (and (eq ?\\ (char-before (line-end-position 0)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
276 (not (syntax-ppss-context (syntax-ppss)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
277
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
278 (defun python-continuation-line-p ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
279 "Return non-nil if current line continues a previous one.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
280 The criteria are that the previous line ends in a backslash outside
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
281 comments and strings, or that the bracket/paren nesting depth is nonzero."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
282 (or (and (eq ?\\ (char-before (line-end-position 0)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
283 (not (syntax-ppss-context (syntax-ppss))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
284 (/= 0 (syntax-ppss-depth
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
285 (save-excursion ; syntax-ppss with arg changes point
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
286 (syntax-ppss (line-beginning-position)))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
287
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
288 (defun python-comment-line-p ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
289 "Return non-nil if current line has only a comment or is blank."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
290 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
291 (back-to-indentation)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
292 (looking-at (rx (or (syntax comment-start) line-end)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
293
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
294 (defun python-beginning-of-string ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
295 "Go to beginning of string around point.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
296 Do nothing if not in string."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
297 (let ((state (syntax-ppss)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
298 (when (nth 3 state)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
299 (goto-char (nth 8 state)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
300
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
301 (defun python-open-block-statement-p (&optional bos)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
302 "Return non-nil if statement at point opens a block.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
303 BOS non-nil means point is known to be at beginning of statement."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
304 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
305 (unless bos (python-beginning-of-statement))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
306 (and (not (python-comment-line-p))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
307 (re-search-forward (rx (and ?: (0+ space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
308 (optional (and (syntax comment-start)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
309 (0+ not-newline)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
310 line-end))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
311 (save-excursion (python-end-of-statement))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
312 t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
313 (not (python-in-string/comment)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
314
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
315 (defun python-close-block-statement-p (&optional bos)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
316 "Return non-nil if current line is a statement closing a block.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
317 BOS non-nil means point is at beginning of statement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
318 The criteria are that the line isn't a comment or in string and starts with
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
319 keyword `raise', `break', `continue' or `pass'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
320 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
321 (unless bos (python-beginning-of-statement))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
322 (back-to-indentation)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
323 (looking-at (rx (and (or "return" "raise" "break" "continue" "pass")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
324 word-end)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
325
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
326 (defun python-outdent-p ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
327 "Return non-nil if current line should outdent a level."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
328 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
329 (back-to-indentation)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
330 (and (looking-at (rx (and (or (and (or "else" "finally") word-end)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
331 (and (or "except" "elif") word-end
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
332 (1+ (not (any ?:)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
333 (optional space) ":" (optional space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
334 (or (syntax comment-start) line-end))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
335 (progn (end-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
336 (not (python-in-string/comment)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
337 ;; Ensure there's a previous statement and move to it.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
338 (zerop (python-previous-statement))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
339 (not (python-close-block-statement-p t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
340 ;; Fixme: check this
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
341 (not (looking-at (rx (and (or (and (or "if" "elif" "except"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
342 "for" "while")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
343 word-end (1+ (not (any ?:))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
344 (and "try" word-end))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
345 (optional space) ":" (optional space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
346 (or (syntax comment-start) line-end)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
347 (progn (end-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
348 (not (python-in-string/comment))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
349
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
350 ;;;; Indentation.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
351
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
352 (defcustom python-indent 4
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
353 "*Number of columns for a unit of indentation in Python mode.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
354 See also `\\[python-guess-indent]'"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
355 :group 'python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
356 :type 'integer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
357
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
358 (defcustom python-guess-indent t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
359 "*Non-nil means Python mode guesses `python-indent' for the buffer."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
360 :type 'boolean
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
361 :group 'python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
362
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
363 (defcustom python-indent-string-contents t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
364 "*Non-nil means indent contents of multi-line strings together.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
365 This means indent them the same as the preceding non-blank line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
366 Otherwise indent them to column zero."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
367 :type '(choice (const :tag "Align with preceding" t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
368 (const :tag "Indent to column 0" nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
369 :group 'python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
370
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
371 (defcustom python-honour-comment-indentation nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
372 "Non-nil means indent relative to preceding comment line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
373 Only do this for comments where the leading comment character is followed
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
374 by space."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
375 :type 'boolean
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
376 :group 'python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
377
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
378 (defcustom python-continuation-offset 4
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
379 "*Number of columns of additional indentation for continuation lines.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
380 Continuation lines follow a backslash-terminated line starting a statement."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
381 :group 'python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
382 :type 'integer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
383
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
384 (defun python-guess-indent ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
385 "Guess step for indentation of current buffer.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
386 Set `python-indent' locally to the value guessed."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
387 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
388 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
389 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
390 (let (done indent)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
391 (while (and (not done) (not (eobp)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
392 (when (and (re-search-forward (rx (and ?: (0+ space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
393 (or (syntax comment-start)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
394 line-end)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
395 nil 'move)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
396 (python-open-block-statement-p))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
397 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
398 (python-beginning-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
399 (let ((initial (current-indentation)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
400 (if (zerop (python-next-statement))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
401 (setq indent (- (current-indentation) initial)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
402 (if (and (>= indent 2) (<= indent 8)) ; sanity check
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
403 (setq done t))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
404 (when done
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
405 (when (/= indent (default-value 'python-indent))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
406 (set (make-local-variable 'python-indent) indent)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
407 (unless (= tab-width python-indent)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
408 (setq indent-tabs-mode nil)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
409 indent))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
410
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
411 (defun python-calculate-indentation ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
412 "Calculate Python indentation for line at point."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
413 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
414 (beginning-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
415 (let ((syntax (syntax-ppss))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
416 start)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
417 (cond
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
418 ((eq 'string (syntax-ppss-context syntax)) ; multi-line string
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
419 (if (not python-indent-string-contents)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
420 0
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
421 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
422 ;; Find indentation of preceding non-blank line within string.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
423 (setq start (nth 8 syntax))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
424 (forward-line -1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
425 (while (and (< start (point)) (looking-at "\\s-*$"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
426 (forward-line -1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
427 (current-indentation))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
428 ((python-continuation-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
429 (let ((point (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
430 (open-start (cadr syntax)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
431 (if open-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
432 ;; Inside bracketed expression.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
433 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
434 (goto-char (1+ open-start))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
435 ;; Look for first item in list (preceding point) and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
436 ;; align with it, if found.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
437 (if (with-syntax-table python-space-backslash-table
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
438 (let ((parse-sexp-ignore-comments t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
439 (condition-case ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
440 (progn (forward-sexp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
441 (backward-sexp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
442 (< (point) point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
443 (error nil))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
444 (current-column)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
445 ;; Otherwise indent relative to statement start, one
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
446 ;; level per bracketing level.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
447 (goto-char (1+ open-start))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
448 (python-beginning-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
449 (+ (current-indentation) (* (car syntax) python-indent))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
450 ;; Otherwise backslash-continued.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
451 (forward-line -1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
452 (if (python-continuation-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
453 ;; We're past first continuation line. Align with
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
454 ;; previous line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
455 (current-indentation)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
456 ;; First continuation line. Indent one step, with an
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
457 ;; extra one if statement opens a block.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
458 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
459 (python-beginning-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
460 (+ (current-indentation) python-continuation-offset
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
461 (if (python-open-block-statement-p t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
462 python-indent
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
463 0)))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
464 ((bobp) 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
465 ;; Fixme: Like python-mode.el; not convinced by this.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
466 ((looking-at (rx (and (0+ space) (syntax comment-start)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
467 (not (any " \t\n"))))) ; non-indentable comment
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
468 (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
469 (t (let ((point (point)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
470 (if python-honour-comment-indentation
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
471 ;; Back over whitespace, newlines, non-indentable comments.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
472 (catch 'done
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
473 (while t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
474 (if (cond ((bobp))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
475 ;; not at comment start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
476 ((not (forward-comment -1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
477 (python-beginning-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
478 t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
479 ;; trailing comment
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
480 ((/= (current-column) (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
481 (python-beginning-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
482 t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
483 ;; indentable comment like python-mode.el
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
484 ((and (looking-at (rx (and (syntax comment-start)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
485 (or space line-end))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
486 (/= 0 (current-column)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
487 (throw 'done t))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
488 ;; Else back over all comments.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
489 (python-skip-comments/blanks t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
490 (python-beginning-of-statement))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
491 ;; don't lose on bogus outdent
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
492 (max 0 (+ (current-indentation)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
493 (or (cond ((python-open-block-statement-p t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
494 python-indent)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
495 ((python-close-block-statement-p t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
496 (- python-indent)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
497 (progn (goto-char point)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
498 (if (python-outdent-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
499 (- python-indent)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
500 0)))))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
501
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
502 ;;;; Cycling through the possible indentations with successive TABs.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
503
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
504 ;; These don't need to be buffer-local since they're only relevant
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
505 ;; during a cycle.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
506
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
507 ;; Alist of possible indentations and start of statement they would close.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
508 (defvar python-indent-list nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
509 "Internal use.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
510 ;; Length of the above
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
511 (defvar python-indent-list-length nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
512 "Internal use.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
513 ;; Current index into the alist.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
514 (defvar python-indent-index nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
515 "Internal use.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
516
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
517 (defun python-initial-text ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
518 "Text of line following indentation and ignoring any trailing comment."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
519 (buffer-substring (+ (line-beginning-position) (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
520 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
521 (end-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
522 (forward-comment -1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
523 (point))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
524
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
525 (defun python-indentation-levels ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
526 "Return a list of possible indentations for this statement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
527 Includes the default indentation and those which would close all
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
528 enclosing blocks."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
529 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
530 (let ((levels (list (cons (current-indentation) nil))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
531 ;; Only one possibility if we immediately follow a block open or
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
532 ;; are in a continuation line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
533 (unless (or (python-continuation-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
534 (save-excursion (and (python-previous-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
535 (python-open-block-statement-p t))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
536 (while (python-beginning-of-block)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
537 (push (cons (current-indentation) (python-initial-text))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
538 levels)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
539 levels)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
540
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
541 ;; This is basically what `python-indent-line' would be if we didn't
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
542 ;; do the cycling.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
543 (defun python-indent-line-1 ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
544 "Subroutine of `python-indent-line'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
545 (let ((target (python-calculate-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
546 (pos (- (point-max) (point))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
547 (if (= target (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
548 (if (< (current-column) (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
549 (back-to-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
550 (beginning-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
551 (delete-horizontal-space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
552 (indent-to target)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
553 (if (> (- (point-max) pos) (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
554 (goto-char (- (point-max) pos))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
555
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
556 ;; Fixme: Is the arg necessary?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
557 (defun python-indent-line (&optional arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
558 "Indent current line as Python code.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
559 When invoked via `indent-for-tab-command', cycle through possible
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
560 indentations for current line. The cycle is broken by a command different
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
561 from `indent-for-tab-command', i.e. successive TABs do the cycling."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
562 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
563 ;; Don't do extra work if invoked via `indent-region', for instance.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
564 (if (not (eq this-command 'indent-for-tab-command))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
565 (python-indent-line-1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
566 (if (eq last-command this-command)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
567 (if (= 1 python-indent-list-length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
568 (message "Sole indentation")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
569 (progn (setq python-indent-index (% (1+ python-indent-index)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
570 python-indent-list-length))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
571 (beginning-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
572 (delete-horizontal-space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
573 (indent-to (car (nth python-indent-index python-indent-list)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
574 (let ((text (cdr (nth python-indent-index
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
575 python-indent-list))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
576 (if text (message "Closes: %s" text)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
577 (python-indent-line-1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
578 (setq python-indent-list (python-indentation-levels)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
579 python-indent-list-length (length python-indent-list)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
580 python-indent-index (1- python-indent-list-length)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
581
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
582 ;;;; Movement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
583
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
584 (defun python-beginning-of-defun ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
585 "`beginning-of-defun-function' for Python.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
586 Finds beginning of innermost nested class or method definition.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
587 Returns the name of the definition found at the end, or nil if reached
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
588 start of buffer."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
589 (let ((ci (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
590 (def-re (rx (and line-start (0+ space) (or "def" "class")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
591 (1+ space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
592 (group (1+ (or word (syntax symbol)))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
593 point found lep def-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
594 (if (python-comment-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
595 (setq ci most-positive-fixnum))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
596 (while (and (not (bobp)) (not found))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
597 ;; Treat bol at beginning of function as outside function so
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
598 ;; that successive C-M-a makes progress backwards.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
599 (setq def-line (looking-at def-re))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
600 (unless (bolp) (end-of-line))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
601 (setq lep (line-end-position))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
602 (if (and (re-search-backward def-re nil 'move)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
603 ;; Must be less indented or matching top level, or
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
604 ;; equally indented if we started on a definition line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
605 (let ((in (current-indentation)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
606 (or (and (zerop ci) (zerop in))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
607 (= lep (line-end-position)) ; on initial line
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
608 (and def-line (= in ci))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
609 (< in ci)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
610 (not (python-in-string/comment)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
611 (setq found t)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
612
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
613 (defun python-end-of-defun ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
614 "`end-of-defun-function' for Python.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
615 Finds end of innermost nested class or method definition."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
616 (let ((orig (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
617 (pattern (rx (and line-start (0+ space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
618 (or "def" "class") space))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
619 ;; Go to start of current block and check whether it's at top
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
620 ;; level. If it is, and not a block start, look forward for
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
621 ;; definition statement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
622 (when (python-comment-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
623 (end-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
624 (forward-comment most-positive-fixnum))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
625 (if (not (python-open-block-statement-p))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
626 (python-beginning-of-block))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
627 (if (zerop (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
628 (unless (python-open-block-statement-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
629 (while (and (re-search-forward pattern nil 'move)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
630 (python-in-string/comment))) ; just loop
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
631 (unless (eobp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
632 (beginning-of-line)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
633 ;; Don't move before top-level statement that would end defun.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
634 (end-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
635 (python-beginning-of-defun))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
636 ;; If we got to the start of buffer, look forward for
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
637 ;; definition statement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
638 (if (and (bobp) (not (looking-at "def\\|class")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
639 (while (and (not (eobp))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
640 (re-search-forward pattern nil 'move)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
641 (python-in-string/comment)))) ; just loop
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
642 ;; We're at a definition statement (or end-of-buffer).
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
643 (unless (eobp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
644 (python-end-of-block)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
645 ;; Count trailing space in defun (but not trailing comments).
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
646 (skip-syntax-forward " >")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
647 (beginning-of-line))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
648 ;; Catch pathological case like this, where the beginning-of-defun
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
649 ;; skips to a definition we're not in:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
650 ;; if ...:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
651 ;; ...
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
652 ;; else:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
653 ;; ... # point here
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
654 ;; ...
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
655 ;; def ...
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
656 (if (< (point) orig)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
657 (goto-char (point-max)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
658
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
659 (defun python-beginning-of-statement ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
660 "Go to start of current statement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
661 Accounts for continuation lines, multi-line strings, and multi-line bracketed
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
662 expressions."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
663 (beginning-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
664 (python-beginning-of-string)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
665 (while (python-continuation-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
666 (beginning-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
667 (if (python-backslash-continuation-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
668 (while (python-backslash-continuation-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
669 (forward-line -1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
670 (python-beginning-of-string)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
671 ;; Skip forward out of nested brackets.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
672 (condition-case () ; beware invalid syntax
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
673 (progn (backward-up-list (syntax-ppss-depth (syntax-ppss))) t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
674 (error (end-of-line)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
675 (back-to-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
676
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
677 (defun python-end-of-statement ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
678 "Go to the end of the current statement and return point.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
679 Usually this is the start of the next line, but if this is a
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
680 multi-line statement we need to skip over the continuation lines.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
681 On a comment line, go to end of line."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
682 (end-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
683 (while (let (comment)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
684 ;; Move past any enclosing strings and sexps, or stop if
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
685 ;; we're in a comment.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
686 (while (let ((s (syntax-ppss)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
687 (cond ((eq 'comment (syntax-ppss-context s))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
688 (setq comment t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
689 nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
690 ((eq 'string (syntax-ppss-context s))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
691 ;; Go to start of string and skip it.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
692 (goto-char (nth 8 s))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
693 (condition-case () ; beware invalid syntax
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
694 (progn (forward-sexp) t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
695 (error (end-of-line))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
696 ((> (syntax-ppss-depth s) 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
697 ;; Skip forward out of nested brackets.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
698 (condition-case () ; beware invalid syntax
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
699 (progn (backward-up-list
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
700 (- (syntax-ppss-depth s)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
701 t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
702 (error (end-of-line))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
703 (end-of-line))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
704 (unless comment
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
705 (eq ?\\ (char-before)))) ; Line continued?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
706 (end-of-line 2)) ; Try next line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
707 (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
708
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
709 (defun python-previous-statement (&optional count)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
710 "Go to start of previous statement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
711 With argument COUNT, do it COUNT times. Stop at beginning of buffer.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
712 Return count of statements left to move."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
713 (interactive "p")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
714 (unless count (setq count 1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
715 (if (< count 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
716 (python-next-statement (- count))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
717 (python-beginning-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
718 (while (and (> count 0) (not (bobp)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
719 (python-skip-comments/blanks t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
720 (python-beginning-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
721 (unless (bobp) (setq count (1- count))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
722 count))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
723
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
724 (defun python-next-statement (&optional count)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
725 "Go to start of next statement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
726 With argument COUNT, do it COUNT times. Stop at end of buffer.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
727 Return count of statements left to move."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
728 (interactive "p")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
729 (unless count (setq count 1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
730 (if (< count 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
731 (python-previous-statement (- count))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
732 (beginning-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
733 (while (and (> count 0) (not (eobp)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
734 (python-end-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
735 (python-skip-comments/blanks)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
736 (setq count (1- count)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
737 count))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
738
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
739 (defun python-beginning-of-block (&optional arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
740 "Go to start of current block.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
741 With numeric arg, do it that many times. If ARG is negative, call
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
742 `python-end-of-block' instead.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
743 If point is on the first line of a block, use its outer block.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
744 If current statement is in column zero, don't move and return nil.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
745 Otherwise return non-nil."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
746 (interactive "p")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
747 (unless arg (setq arg 1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
748 (cond
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
749 ((zerop arg))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
750 ((< arg 0) (python-end-of-block (- arg)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
751 (t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
752 (let ((point (point)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
753 (if (python-comment-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
754 (python-skip-comments/blanks t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
755 (python-beginning-of-statement)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
756 (let ((ci (current-indentation)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
757 (if (zerop ci)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
758 (not (goto-char point)) ; return nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
759 ;; Look upwards for less indented statement.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
760 (if (catch 'done
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
761 ;;; This is slower than the below.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
762 ;;; (while (zerop (python-previous-statement))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
763 ;;; (when (and (< (current-indentation) ci)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
764 ;;; (python-open-block-statement-p t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
765 ;;; (beginning-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
766 ;;; (throw 'done t)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
767 (while (and (zerop (forward-line -1)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
768 (when (and (< (current-indentation) ci)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
769 (not (python-comment-line-p))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
770 ;; Move to beginning to save effort in case
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
771 ;; this is in string.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
772 (progn (python-beginning-of-statement) t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
773 (python-open-block-statement-p t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
774 (beginning-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
775 (throw 'done t)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
776 (not (goto-char point))) ; Failed -- return nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
777 (python-beginning-of-block (1- arg)))))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
778
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
779 (defun python-end-of-block (&optional arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
780 "Go to end of current block.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
781 With numeric arg, do it that many times. If ARG is negative, call
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
782 `python-beginning-of-block' instead.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
783 If current statement is in column zero and doesn't open a block, don't
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
784 move and return nil. Otherwise return t."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
785 (interactive "p")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
786 (unless arg (setq arg 1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
787 (if (< arg 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
788 (python-beginning-of-block (- arg)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
789 (while (and (> arg 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
790 (let* ((point (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
791 (_ (if (python-comment-line-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
792 (python-skip-comments/blanks t)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
793 (ci (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
794 (open (python-open-block-statement-p)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
795 (if (and (zerop ci) (not open))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
796 (not (goto-char point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
797 (catch 'done
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
798 (while (zerop (python-next-statement))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
799 (when (or (and open (<= (current-indentation) ci))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
800 (< (current-indentation) ci))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
801 (python-skip-comments/blanks t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
802 (beginning-of-line 2)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
803 (throw 'done t)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
804 (not (goto-char point))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
805 (setq arg (1- arg)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
806 (zerop arg))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
807
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
808 ;;;; Imenu.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
809
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
810 (defun python-imenu-create-index ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
811 "`imenu-create-index-function' for Python.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
812
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
813 Makes nested Imenu menus from nested `class' and `def' statements.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
814 The nested menus are headed by an item referencing the outer
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
815 definition; it has a space prepended to the name so that it sorts
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
816 first with `imenu--sort-by-name'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
817 (unless (boundp 'recursing) ; dynamically bound below
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
818 (goto-char (point-min))) ; normal call from Imenu
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
819 (let (index-alist ; accumulated value to return
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
820 name is-class pos)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
821 (while (re-search-forward
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
822 (rx (and line-start (0+ space) ; leading space
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
823 (or (group "def") (group "class")) ; type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
824 (1+ space) (group (1+ (or word ?_))))) ; name
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
825 nil t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
826 (unless (python-in-string/comment)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
827 (let ((pos (match-beginning 0))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
828 (name (match-string-no-properties 3)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
829 (if (match-beginning 2) ; def or class?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
830 (setq name (concat "class " name)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
831 (save-restriction
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
832 (narrow-to-defun)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
833 (let* ((recursing t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
834 (sublist (python-imenu-create-index)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
835 (if sublist
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
836 (progn (push (cons (concat " " name) pos) sublist)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
837 (push (cons name sublist) index-alist))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
838 (push (cons name pos) index-alist)))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
839 (nreverse index-alist)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
840
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
841 ;;;; `Electric' commands.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
842
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
843 (defun python-electric-colon (arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
844 "Insert a colon and maybe outdent the line if it is a statement like `else'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
845 With numeric ARG, just insert that many colons. With \\[universal-argument],
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
846 just insert a single colon."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
847 (interactive "*P")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
848 (self-insert-command (if (not (integerp arg)) 1 arg))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
849 (and (not arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
850 (eolp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
851 (python-outdent-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
852 (not (python-in-string/comment))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
853 (> (current-indentation) (python-calculate-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
854 (python-indent-line))) ; OK, do it
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
855 (put 'python-electric-colon 'delete-selection t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
856
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
857 (defun python-backspace (arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
858 "Maybe delete a level of indentation on the current line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
859 If not at the end of line's indentation, or on a comment line, just call
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
860 `backward-delete-char-untabify'. With ARG, repeat that many times."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
861 (interactive "*p")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
862 (if (or (/= (current-indentation) (current-column))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
863 (bolp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
864 (python-continuation-line-p))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
865 (backward-delete-char-untabify arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
866 (let ((indent 0))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
867 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
868 (while (and (> arg 0) (python-beginning-of-block))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
869 (setq arg (1- arg)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
870 (when (zerop arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
871 (setq indent (current-indentation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
872 (message "Closes %s" (python-initial-text))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
873 (delete-horizontal-space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
874 (indent-to indent))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
875 (put 'python-backspace 'delete-selection 'supersede)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
876
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
877 ;;;; pychecker
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
878
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
879 (defcustom python-check-command "pychecker --stdlib"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
880 "*Command used to check a Python file."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
881 :type 'string
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
882 :group 'python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
883
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
884 (defvar python-saved-check-command nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
885 "Internal use.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
886
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
887 (autoload 'compilation-start "compile")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
888
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
889 ;; After `sgml-validate-command'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
890 (defun python-check (command)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
891 "Check a Python file (default current buffer's file).
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
892 Runs COMMAND, a shell command, as if by `compile'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
893 See `python-check-command' for the default."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
894 (interactive
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
895 (list (read-string "Checker command: "
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
896 (or python-saved-check-command
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
897 (concat python-check-command " "
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
898 (let ((name (buffer-file-name)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
899 (if name
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
900 (file-name-nondirectory name))))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
901 (setq python-saved-check-command command)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
902 (save-some-buffers (not compilation-ask-about-save) nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
903 (compilation-start command))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
904
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
905 ;;;; Inferior mode stuff (following cmuscheme).
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
906
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
907 (defcustom python-python-command "python"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
908 "*Shell command to run Python interpreter.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
909 Any arguments can't contain whitespace."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
910 :group 'python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
911 :type 'string)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
912
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
913 (defcustom python-jython-command "jython"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
914 "*Shell command to run Jython interpreter.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
915 Any arguments can't contain whitespace."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
916 :group 'python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
917 :type 'string)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
918
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
919 (defvar python-command python-python-command
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
920 "Actual command used to run Python.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
921 May be `python-python-command' or `python-jython-command'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
922 Additional arguments are added when the command is used by `run-python'
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
923 et al.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
924
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
925 (defvar python-buffer nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
926 "*The current python process buffer.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
927 To run multiple Python processes, start the first with \\[run-python].
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
928 It will be in a buffer named *Python*. Rename that with
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
929 \\[rename-buffer]. Now start a new process with \\[run-python]. It
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
930 will be in a new buffer, named *Python*. Switch between the different
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
931 process buffers with \\[switch-to-buffer].
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
932
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
933 Commands that send text from source buffers to Python processes have
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
934 to choose a process to send to. This is determined by global variable
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
935 `python-buffer'. Suppose you have three inferior Pythons running:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
936 Buffer Process
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
937 foo python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
938 bar python<2>
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
939 *Python* python<3>
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
940 If you do a \\[python-send-region-and-go] command on some Python source
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
941 code, what process does it go to?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
942
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
943 - In a process buffer (foo, bar, or *Python*), send it to that process.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
944 - In some other buffer (e.g. a source file), send it to the process
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
945 attached to `python-buffer'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
946 Process selection is done by function `python-proc'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
947
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
948 Whenever \\[run-python] starts a new process, it resets `python-buffer'
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
949 to be the new process's buffer. If you only run one process, this will
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
950 do the right thing. If you run multiple processes, you can change
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
951 `python-buffer' to another process buffer with \\[set-variable].")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
952
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
953 (define-derived-mode inferior-python-mode comint-mode "Inferior Python"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
954 "Major mode for interacting with an inferior Python process.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
955 A Python process can be started with \\[run-python].
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
956
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
957 Hooks `comint-mode-hook' and `inferior-python-mode-hook' are run in
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
958 that order.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
959
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
960 You can send text to the inferior Python process from other buffers containing
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
961 Python source.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
962 * `python-switch-to-python' switches the current buffer to the Python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
963 process buffer.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
964 * `python-send-region' sends the current region to the Python process.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
965 * `python-send-region-and-go' switches to the Python process buffer
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
966 after sending the text.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
967 For running multiple processes in multiple buffers, see `python-buffer'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
968
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
969 \\{inferior-python-mode-map}"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
970 :group 'python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
971 (set-syntax-table python-mode-syntax-table)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
972 (setq mode-line-process '(":%s"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
973 ;; Fixme: Maybe install some python-mode bindings too.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
974 (define-key inferior-python-mode-map "\C-c\C-l" 'python-load-file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
975 (define-key inferior-python-mode-map "\C-c\C-z" 'python-switch-to-python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
976 (setq comint-input-filter #'python-input-filter))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
977
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
978 (defcustom inferior-python-filter-regexp "\\`\\s-*\\S-?\\S-?\\s-*\\'"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
979 "*Input matching this regexp is not saved on the history list.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
980 Default ignores all inputs of 0, 1, or 2 non-blank characters."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
981 :type 'regexp
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
982 :group 'python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
983
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
984 (defvar python-orig-start-line nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
985 "Line number at start of region sent to inferior Python.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
986
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
987 (defvar python-orig-file nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
988 "File name to associate with errors found in inferior Python.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
989
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
990 (defun python-input-filter (str)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
991 "`comint-input-filter' function for inferior Python.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
992 Don't save anything matching `inferior-python-filter-regexp'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
993 Also resets variables for adjusting error messages."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
994 (setq python-orig-file nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
995 python-orig-start-line 1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
996 (not (string-match inferior-python-filter-regexp str)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
997
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
998 ;; Fixme: Loses with quoted whitespace.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
999 (defun python-args-to-list (string)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1000 (let ((where (string-match "[ \t]" string)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1001 (cond ((null where) (list string))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1002 ((not (= where 0))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1003 (cons (substring string 0 where)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1004 (python-args-to-list (substring string (+ 1 where)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1005 (t (let ((pos (string-match "[^ \t]" string)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1006 (if pos (python-args-to-list (substring string pos))))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1007
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1008 (defvar compilation-minor-mode-map)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1009 (defvar compilation-error-list)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1010 (defvar compilation-parsing-end)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1011
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1012 (defconst python-compilation-regexp-alist
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1013 `((,(rx (and line-start (1+ (any " \t")) "File \""
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1014 (group (1+ (not (any "\"<")))) ; avoid `<stdin>' &c
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1015 "\", line " (group (1+ digit))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1016 1 python-compilation-line-number))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1017 "`compilation-error-regexp-alist' for inferior Python.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1018
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1019 (defun python-compilation-line-number (file col)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1020 "Return error descriptor of error found for FILE, column COL.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1021 Used as line-number hook function in `python-compilation-regexp-alist'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1022 (let ((line (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1023 (goto-char (match-beginning 2))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1024 (read (current-buffer)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1025 (list (point-marker) (if python-orig-file
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1026 (list python-orig-file default-directory)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1027 file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1028 (+ line (1- python-orig-start-line))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1029 nil)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1030
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1031 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1032 (defun run-python (cmd)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1033 "Run an inferior Python process, input and output via buffer *Python*.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1034 CMD is the Python command to run.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1035 If there is a process already running in `*Python*', switch to
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1036 that buffer. With argument, allows you to edit the initial
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1037 command line (default is the value of `python-command'); `-i' and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1038 `-c' args will be added to this to support evaluations in the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1039 REPL. Runs the hooks `inferior-python-mode-hook' \(after the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1040 `comint-mode-hook' is run). \(Type \\[describe-mode] in the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1041 process buffer for a list of commands.)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1042 (interactive (list (if current-prefix-arg
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1043 (read-string "Run Python: " python-command)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1044 python-command)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1045 ;; Fixme: Consider making `python-buffer' buffer-local as a buffer
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1046 ;; (not a name) in Python buffers from which `run-python' &c is
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1047 ;; invoked. Would support multiple processes better.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1048 (if (not (comint-check-proc "*Python*"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1049 (let ((cmdlist (append (python-args-to-list cmd)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1050 '("-i" "-c" "\
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1051 from os import remove as _emacs_rem
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1052 def _emacs_execfile (file):
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1053 try:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1054 execfile (file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1055 finally:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1056 _emacs_rem (file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1057 "))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1058 (set-buffer (apply 'make-comint "Python" (car cmdlist) nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1059 (cdr cmdlist)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1060 (inferior-python-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1061 (setq comint-output-filter-functions nil)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1062 (setq python-command cmd)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1063 (setq python-buffer "*Python*")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1064 (pop-to-buffer "*Python*")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1065 (set (make-local-variable 'compilation-error-regexp-alist)
|
54838
|
1066 python-compilation-regexp-alist)
|
|
1067 (compilation-shell-minor-mode 1)
|
|
1068 (add-hook 'comint-input-filter-functions 'python-input-filter nil t))
|
54789
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1069
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1070 (defun python-mouse-2-command (event)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1071 "Command bound to `mouse-2' in inferior Python buffer.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1072 Selects Comint or Compilation mode command as appropriate."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1073 (interactive "e")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1074 ;; This only works with the font-lock-based compilation mode.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1075 (call-interactively
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1076 (lookup-key (if (save-window-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1077 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1078 (mouse-set-point event)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1079 (consp (get-text-property (line-beginning-position)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1080 'message))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1081 compilation-mode-map
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1082 comint-mode-map)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1083 [mouse-2])))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1084
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1085 (defun python-RET-command ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1086 "Command bound to `RET' in inferior Python buffer.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1087 Selects Comint or Compilation mode command as appropriate."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1088 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1089 ;; This only works with the font-lock-based compilation mode.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1090 (call-interactively
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1091 (lookup-key (if (consp (get-text-property (line-beginning-position)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1092 'message))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1093 compilation-mode-map
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1094 comint-mode-map)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1095 "\C-m")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1096
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1097 (defun python-send-region (start end)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1098 "Send the region to the inferior Python process."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1099 ;; The region is evaluated from a temporary file. This avoids
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1100 ;; problems with blank lines, which have different semantics
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1101 ;; interactively and in files. It also saves the inferior process
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1102 ;; buffer filling up with interpreter prompts. We need a function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1103 ;; to remove the temporary file when it has been evaluated, which
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1104 ;; unfortunately means using a not-quite pristine interpreter
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1105 ;; initially. Unfortunately we also get tracebacks which look like:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1106 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1107 ;; >>> Traceback (most recent call last):
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1108 ;; File "<stdin>", line 1, in ?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1109 ;; File "<string>", line 4, in _emacs_execfile
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1110 ;; File "/tmp/py7734RSB", line 11
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1111 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1112 ;; The compilation-minor-mode parsing takes care of relating the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1113 ;; reference to the temporary file to the source. Fixme:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1114 ;; comint-filter the first two lines of the traceback?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1115 (interactive "r")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1116 (let* ((f (make-temp-file "py"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1117 (command (format "_emacs_execfile(%S)\n" f))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1118 (orig-file (buffer-file-name))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1119 (orig-line (save-restriction
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1120 (widen)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1121 (line-number-at-pos start))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1122 (if (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1123 (goto-char start)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1124 (/= 0 (current-indentation))) ; need dummy block
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1125 (write-region "if True:\n" nil f nil 'nomsg))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1126 (write-region start end f t 'nomsg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1127 (when python-buffer
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1128 (with-current-buffer python-buffer
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1129 (let ((end (marker-position (process-mark
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1130 (get-buffer-process python-buffer)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1131 (set (make-local-variable 'python-orig-file) orig-file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1132 (set (make-local-variable 'python-orig-start-line) orig-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1133 (set (make-local-variable 'compilation-error-list) nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1134 ;; (set (make-local-variable 'compilation-old-error-list) nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1135 (let ((comint-input-filter-functions
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1136 (delete 'python-input-filter comint-input-filter-functions)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1137 (comint-send-string (python-proc) command))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1138 (set-marker compilation-parsing-end end)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1139 (setq compilation-last-buffer (current-buffer)))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1140
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1141 (defun python-send-string (string)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1142 "Evaluate STRING in inferior Python process."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1143 (interactive "sPython command: ")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1144 (comint-send-string (python-proc) string))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1145
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1146 (defun python-send-buffer ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1147 "Send the current buffer to the inferior Python process."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1148 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1149 (python-send-region (point-min) (point-max)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1150
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1151 (defun python-send-defun ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1152 "Send the current defun (class or method) to the inferior Python process."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1153 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1154 (save-excursion (python-send-region (progn (beginning-of-defun) (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1155 (progn (end-of-defun) (point)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1156
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1157 (defun python-switch-to-python (eob-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1158 "Switch to the Python process buffer.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1159 With prefix arg, position cursor at end of buffer."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1160 (interactive "P")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1161 (if (get-buffer python-buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1162 (pop-to-buffer python-buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1163 (error "No current process buffer. See variable `python-buffer'"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1164 (when eob-p
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1165 (push-mark)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1166 (goto-char (point-max))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1167
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1168 (add-to-list 'debug-ignored-errors "^No current process buffer.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1169
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1170 (defun python-send-region-and-go (start end)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1171 "Send the region to the inferior Python process.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1172 Then switch to the process buffer."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1173 (interactive "r")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1174 (python-send-region start end)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1175 (python-switch-to-python t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1176
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1177 (defcustom python-source-modes '(python-mode jython-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1178 "*Used to determine if a buffer contains Python source code.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1179 If it's loaded into a buffer that is in one of these major modes, it's
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1180 considered a Python source file by `python-load-file'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1181 Used by these commands to determine defaults."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1182 :type '(repeat function)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1183 :group 'python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1184
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1185 (defvar python-prev-dir/file nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1186 "Caches (directory . file) pair used in the last `python-load-file' command.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1187 Used for determining the default in the next one.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1188
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1189 (defun python-load-file (file-name)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1190 "Load a Python file FILE-NAME into the inferior Python process.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1191 If the file has extension `.py' import or reload it as a module.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1192 Treating it as a module keeps the global namespace clean, provides
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1193 function location information for debugging, and supports users of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1194 module-qualified names."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1195 (interactive (comint-get-source "Load Python file: " python-prev-dir/file
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1196 python-source-modes
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1197 t)) ; because execfile needs exact name
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1198 (comint-check-source file-name) ; Check to see if buffer needs saved.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1199 (setq python-prev-dir/file (cons (file-name-directory file-name)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1200 (file-name-nondirectory file-name)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1201 (comint-send-string
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1202 (python-proc)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1203 (if (string-match "\\.py\\'" file-name)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1204 ;; Fixme: make sure the directory is in the path list
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1205 (let ((module (file-name-sans-extension
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1206 (file-name-nondirectory file-name))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1207 (format "\
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1208 if globals().has_key('%s'):
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1209 reload(%s)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1210 else:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1211 import %s
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1212 " module module module))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1213 (format "execfile('%s')\n" filename))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1214
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1215 ;; Fixme: Should this start a process if there isn't one? (Unlike cmuscheme.)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1216 (defun python-proc ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1217 "Return the current Python process. See variable `python-buffer'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1218 (let ((proc (get-buffer-process (if (eq major-mode 'inferior-python-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1219 (current-buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1220 python-buffer))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1221 (or proc (error "No current process. See variable `python-buffer'"))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1222
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1223 ;;;; Context-sensitive help.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1224
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1225 ;; Fixme: Investigate adapting this to eldoc.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1226
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1227 (defun python-describe-symbol (symbol)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1228 "Get help on SYMBOL using `pydoc'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1229 Interactively, prompt for symbol."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1230 (interactive
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1231 (let ((symbol (current-word))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1232 (enable-recursive-minibuffers t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1233 val)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1234 (setq val (read-string (if symbol
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1235 (format "Describe variable (default %s): "
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1236 symbol)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1237 "Describe variable: ")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1238 nil nil symbol))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1239 (list (or val symbol))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1240 (if (equal symbol "") (error "No symbol"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1241 (let* ((mod (if (string-match "\\(\\.[^.]+\\)\\'" symbol)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1242 (substring symbol 0 (match-beginning 1))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1243 (import (when mod (concat "import " mod "\n"))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1244 (with-output-to-temp-buffer "*Python Output*"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1245 (princ (shell-command-to-string
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1246 (format "%s -c 'import pydoc %s
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1247 try: pydoc.help(%S)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1248 except: print \"No help available on:\", %S'"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1249 ;; Fixme: Is this necessarily right?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1250 (car (split-string python-command))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1251 (or import "") symbol symbol))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1252
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1253 (add-to-list 'debug-ignored-errors "^No symbol")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1254
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1255 ;;;; Info-look functionality.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1256
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1257 (require 'info-look)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1258 ;; We should be able to add info-lookup specs without loading the file first.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1259 ;; E.g. by setting a buffer-local var or something like that. --Stef
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1260 (let ((version (let ((s (shell-command-to-string (concat python-command
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1261 " -V"))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1262 (string-match "^Python \\([0-9]+\\.[0-9]+\\>\\)" s)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1263 (match-string 1 s)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1264 ;; Whether info files have a Python version suffix, e.g. in Debian.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1265 (versioned (save-window-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1266 (condition-case ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1267 ;; The call to `info' might create a new frame if
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1268 ;; pop-up-frames or special-display-buffers are used.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1269 ;; So I disabled it until we find a better way
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1270 ;; to handle this situation. Maybe Debian should just
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1271 ;; fix their install somehow. --Stef
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1272 ;; (progn (info "(python2.3-lib)Miscellaneous Index")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1273 ;; (Info-last)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1274 ;; (Info-exit)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1275 ;; t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1276 nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1277 (error nil)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1278 (info-lookup-maybe-add-help
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1279 :mode 'python-mode
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1280 :regexp "[[:alnum:]_]+"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1281 :doc-spec
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1282 ;; Fixme: Add python-ref? Can this reasonably be made specific
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1283 ;; to indices with different rules?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1284 (if versioned
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1285 '((,(concat "(python" version "-lib)Module Index"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1286 (,(concat "(python" version "-lib)Class-Exception-Object Index"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1287 (,(concat "(python" version "-lib)Function-Method-Variable Index"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1288 (,(concat "(python" version "-lib)Miscellaneous Index")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1289 '(("(python-lib)Module Index")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1290 ("(python-lib)Class-Exception-Object Index")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1291 ("(python-lib)Function-Method-Variable Index")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1292 ("(python-lib)Miscellaneous Index")))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1293
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1294 ;;;; Miscellancy.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1295
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1296 (defcustom python-jython-packages '("java" "javax" "org" "com")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1297 "Packages implying `jython-mode'.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1298 If these are imported near the beginning of the buffer, `python-mode'
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1299 actually punts to `jython-mode'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1300 :type '(repeat string)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1301 :group 'python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1302
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1303 ;; Called from `python-mode', this causes a recursive call of the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1304 ;; mode. See logic there to break out of the recursion.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1305 (defun python-maybe-jython ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1306 "Invoke `jython-mode' if the buffer appears to contain Jython code.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1307 The criterion is either a match for `jython-mode' via
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1308 `interpreter-mode-alist' or an import of a module from the list
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1309 `python-jython-packages'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1310 ;; The logic is taken from python-mode.el.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1311 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1312 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1313 (let ((interpreter (if (looking-at auto-mode-interpreter-regexp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1314 (match-string 2))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1315 (if (and interpreter (eq 'jython-mode
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1316 (cdr (assoc (file-name-nondirectory interpreter)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1317 interpreter-mode-alist))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1318 (jython-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1319 (if (catch 'done
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1320 (while (re-search-forward
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1321 (rx (and line-start (or "import" "from") (1+ space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1322 (group (1+ (not (any " \t\n."))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1323 (+ (point) 10000) ; Probably not worth customizing.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1324 t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1325 (if (member (match-string 1) python-jython-packages)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1326 (throw 'done t))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1327 (jython-mode))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1328
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1329 (defun python-fill-paragraph (&optional justify)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1330 "Like \\[fill-paragraph], but handle comments and multi-line strings.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1331 If any of the current line is a comment, fill the comment or the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1332 paragraph of it that point is in, preserving the comment's indentation
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1333 and initial comment characters."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1334 (interactive "P")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1335 (or (fill-comment-paragraph justify)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1336 (let ((paragraph-start (concat paragraph-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1337 "\\|\\s-*\\(:?#\\s\"\\|\\s|\\|#")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1338 (fill-paragraph justify))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1339 t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1340
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1341 (defun python-shift-left (start end &optional count)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1342 "Shift lines in region COUNT (the prefix arg) columns to the left.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1343 COUNT defaults to `python-indent'. If region isn't active, just shift
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1344 current line. The region shifted includes the lines in which START and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1345 END lie. It is an error if any lines in the region are indented less than
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1346 COUNT columns."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1347 (interactive (if mark-active
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1348 (list (region-beginning) (region-end) current-prefix-arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1349 (list (point) (point) current-prefix-arg)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1350 (if count
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1351 (setq count (prefix-numeric-value count))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1352 (setq count python-indent))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1353 (when (> count 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1354 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1355 (goto-char start)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1356 (while (< (point) end)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1357 (if (and (< (current-indentation) count)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1358 (not (looking-at "[ \t]*$")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1359 (error "Can't shift all lines enough"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1360 (forward-line))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1361 (indent-rigidly start end (- count)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1362
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1363 (add-to-list 'debug-ignored-errors "^Can't shift all lines enough")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1364
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1365 (defun python-shift-right (start end &optional count)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1366 "Shift lines in region COUNT (the prefix arg) columns to the right.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1367 COUNT defaults to `python-indent'. If region isn't active, just shift
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1368 current line. The region shifted includes the lines in which START and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1369 END lie."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1370 (interactive (if mark-active
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1371 (list (region-beginning) (region-end) current-prefix-arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1372 (list (point) (point) current-prefix-arg)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1373 (if count
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1374 (setq count (prefix-numeric-value count))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1375 (setq count python-indent))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1376 (indent-rigidly start end count))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1377
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1378 (defun python-outline-level ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1379 "`outline-level' function for Python mode.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1380 The level is the number of `python-indent' steps of indentation."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1381 (/ (current-indentation) python-indent))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1382
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1383 ;; Fixme: Consider top-level assignments, imports, &c.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1384 (defun python-current-defun ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1385 "`add-log-current-defun-function' for Python."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1386 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1387 ;; Move up the tree of nested `class' and `def' blocks until we
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1388 ;; get to zero indentation, accumulating the defined names.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1389 (let ((start t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1390 accum)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1391 (while (or start (> (current-indentation) 0))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1392 (setq start nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1393 (python-beginning-of-block)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1394 (end-of-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1395 (beginning-of-defun)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1396 (if (looking-at (rx (and (0+ space) (or "def" "class") (1+ space)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1397 (group (1+ (or word (syntax symbol))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1398 word-end)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1399 (push (match-string 1) accum)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1400 (if accum (mapconcat 'identity accum ".")))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1401
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1402 (defun python-mark-block ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1403 "Mark the block around point.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1404 Uses `python-beginning-of-block', `python-end-of-block'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1405 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1406 (push-mark)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1407 (python-beginning-of-block)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1408 (push-mark (point) nil t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1409 (python-end-of-block)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1410 (exchange-point-and-mark))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1411
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1412 ;;;; Modes.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1413
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1414 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1415 (define-derived-mode python-mode fundamental-mode "Python"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1416 "Major mode for editing Python files.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1417 Turns on Font Lock mode unconditionally since it is required for correct
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1418 parsing of the source.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1419 See also `jython-mode', which is actually invoked if the buffer appears to
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1420 contain Jython code.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1421
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1422 The Emacs commands which work with `defun's, e.g. \\[beginning-of-defun], deal
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1423 with nested `def' and `class' blocks. They take the innermost one as
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1424 current without distinguishing method and class definitions.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1425 \\<python-mode-map>
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1426 Colon is electric: it outdents the line if appropriate, e.g. for
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1427 an else statement. \\[python-backspace] at the beginning of an indented statement
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1428 deletes a level of indentation to close the current block; otherwise it
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1429 deletes a charcter backward. TAB indents the current line relative to
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1430 the preceding code. Successive TABs, with no intervening command, cycle
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1431 through the possibilities for indentation on the basis of enclosing blocks.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1432
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1433 \\{python-mode-map}"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1434 :group 'python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1435 (set (make-local-variable 'font-lock-defaults)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1436 '(python-font-lock-keywords nil nil ((?_ . "w")) nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1437 (font-lock-syntactic-keywords
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1438 . python-font-lock-syntactic-keywords)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1439 ;;; This probably isn't worth it.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1440 ;;; (font-lock-syntactic-face-function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1441 ;;; . python-font-lock-syntactic-face-function)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1442 ))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1443 (set (make-local-variable 'parse-sexp-lookup-properties) t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1444 (set (make-local-variable 'comment-start) "# ")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1445 ;; Fixme: define a comment-indent-function?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1446 (set (make-local-variable 'indent-line-function) #'python-indent-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1447 (set (make-local-variable 'paragraph-start) "\\s-*$")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1448 (set (make-local-variable 'fill-paragraph-function)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1449 'python-fill-paragraph)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1450 (set (make-local-variable 'require-final-newline) t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1451 (set (make-local-variable 'add-log-current-defun-function)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1452 #'python-current-defun)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1453 ;; Fixme: Generalize to do all blocks?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1454 (set (make-local-variable 'outline-regexp) "\\s-+\\(def\\|class\\)\\>")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1455 (set (make-local-variable 'outline-level) #'python-outline-level)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1456 (set (make-local-variable 'open-paren-in-column-0-is-defun-start) nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1457 (make-local-variable 'python-saved-check-command)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1458 (set (make-local-variable 'beginning-of-defun-function)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1459 'python-beginning-of-defun)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1460 (set (make-local-variable 'end-of-defun-function) 'python-end-of-defun)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1461 (setq imenu-create-index-function #'python-imenu-create-index)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1462 (unless font-lock-mode (font-lock-mode 1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1463 (when python-guess-indent (python-guess-indent))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1464 (set (make-local-variable 'python-command) python-python-command)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1465 (unless (boundp 'python-mode-running) ; kill the recursion from jython-mode
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1466 (let ((python-mode-running t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1467 (python-maybe-jython))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1468
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1469 (custom-add-option 'python-mode-hook 'imenu-add-menubar-index)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1470 (custom-add-option 'python-mode-hook
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1471 '(lambda ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1472 "Turn on Indent Tabs mode."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1473 (set (make-local-variable 'indent-tabs-mode) t)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1474
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1475 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1476 (define-derived-mode jython-mode python-mode "Jython"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1477 "Major mode for editing Jython files.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1478 Like `python-mode', but sets up parameters for Jython subprocesses.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1479 Runs `jython-mode-hook' after `python-mode-hook'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1480 :group 'python
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1481 (set (make-local-variable 'python-command) python-jython-command))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1482
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1483 (provide 'python)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1484 ;; arch-tag: 6fce1d99-a704-4de9-ba19-c6e4912b0554
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1485 ;;; python.el ends here
|