Mercurial > cpython-lru_cache-weakref
annotate Misc/python-mode.el @ 23277:314e08e8090f legacy-trunk
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
better auto-recognition of a Jython file vs. a CPython (or agnostic)
file by looking at the #! line more closely, and inspecting the import
statements in the first 20000 bytes (configurable). Specifically,
(py-import-check-point-max): New variable, controlling how far into
the buffer it will search for import statements.
(py-jpython-packages): List of package names that are Jython-ish.
(py-shell-alist): List of #! line programs and the modes associated
with them.
(jpython-mode-hook): Extra hook that runs when entering jpython-mode
(what about Jython mode? <20k wink>).
(py-choose-shell-by-shebang, py-choose-shell-by-import,
py-choose-shell): New functions.
(python-mode): Use py-choose-shell.
(jpython-mode): New command.
(py-execute-region): Don't use my previous hacky attempt at doing
this, use the new py-choose-shell function.
One other thing this file now does: it attempts to add the proper
hooks to interpreter-mode-alist and auto-mode-alist if they aren't
already there. Might help with Emacs users since that editor doesn't
come with python-mode by default.
| author | Barry Warsaw <barry@python.org> |
|---|---|
| date | Thu, 25 Apr 2002 21:31:47 +0000 |
| parents | d47290dd2d57 |
| children | 5f5cea272b46 |
| rev | line source |
|---|---|
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1 ;;; python-mode.el --- Major mode for editing Python programs |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3 ;; Copyright (C) 1992,1993,1994 Tim Peters |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
4 |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
5 ;; Author: 1995-2002 Barry A. Warsaw |
|
2799
4a998b1a331f
#changed all email address to go through python.org
Barry Warsaw <barry@python.org>
parents:
2798
diff
changeset
|
6 ;; 1992-1994 Tim Peters |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
7 ;; Maintainer: python-mode@python.org |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
8 ;; Created: Feb 1992 |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
9 ;; Keywords: python languages oop |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
10 |
|
18415
d8414f51d4f5
(py-version): Hopefully fixed my XEmacs settings so this doesn't get
Barry Warsaw <barry@python.org>
parents:
18412
diff
changeset
|
11 (defconst py-version "$Revision$" |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
12 "`python-mode' version number.") |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
13 |
|
2524
6001448fab89
#updated copywrite notice by removing the GPL language according to
Barry Warsaw <barry@python.org>
parents:
2513
diff
changeset
|
14 ;; This software is provided as-is, without express or implied |
|
6001448fab89
#updated copywrite notice by removing the GPL language according to
Barry Warsaw <barry@python.org>
parents:
2513
diff
changeset
|
15 ;; warranty. Permission to use, copy, modify, distribute or sell this |
|
6001448fab89
#updated copywrite notice by removing the GPL language according to
Barry Warsaw <barry@python.org>
parents:
2513
diff
changeset
|
16 ;; software, without fee, for any purpose and by any individual or |
|
6001448fab89
#updated copywrite notice by removing the GPL language according to
Barry Warsaw <barry@python.org>
parents:
2513
diff
changeset
|
17 ;; organization, is hereby granted, provided that the above copyright |
|
6001448fab89
#updated copywrite notice by removing the GPL language according to
Barry Warsaw <barry@python.org>
parents:
2513
diff
changeset
|
18 ;; notice and this paragraph appear in all copies. |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
19 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
20 ;;; Commentary: |
|
3925
4bcee63d5bb1
(python-mode): automatically install imenu stuff.
Barry Warsaw <barry@python.org>
parents:
3924
diff
changeset
|
21 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
22 ;; This is a major mode for editing Python programs. It was developed |
| 4066 | 23 ;; by Tim Peters after an original idea by Michael A. Guravage. Tim |
|
9028
65139719b656
Update commentary. For most stuff, point people to the web page
Barry Warsaw <barry@python.org>
parents:
9027
diff
changeset
|
24 ;; subsequently left the net; in 1995, Barry Warsaw inherited the mode |
|
9456
1afdc5580157
#Some minor changes in the commentary, obstensibly to test the new
Barry Warsaw <barry@python.org>
parents:
9454
diff
changeset
|
25 ;; and is the current maintainer. Tim's now back but disavows all |
|
1afdc5580157
#Some minor changes in the commentary, obstensibly to test the new
Barry Warsaw <barry@python.org>
parents:
9454
diff
changeset
|
26 ;; responsibility for the mode. Smart Tim :-) |
|
6836
0255b5ecde10
Update to the Big Comment at the top of the file. It should better
Barry Warsaw <barry@python.org>
parents:
6767
diff
changeset
|
27 |
| 17416 | 28 ;; pdbtrack support contributed by Ken Manheimer, April 2001. |
| 29 | |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
30 ;; Please use the SourceForge Python project to submit bugs or |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
31 ;; patches: |
| 17416 | 32 ;; |
| 33 ;; http://sourceforge.net/projects/python | |
|
6836
0255b5ecde10
Update to the Big Comment at the top of the file. It should better
Barry Warsaw <barry@python.org>
parents:
6767
diff
changeset
|
34 |
|
0255b5ecde10
Update to the Big Comment at the top of the file. It should better
Barry Warsaw <barry@python.org>
parents:
6767
diff
changeset
|
35 ;; FOR MORE INFORMATION: |
|
0255b5ecde10
Update to the Big Comment at the top of the file. It should better
Barry Warsaw <barry@python.org>
parents:
6767
diff
changeset
|
36 |
| 17416 | 37 ;; There is some information on python-mode.el at |
| 38 | |
|
9028
65139719b656
Update commentary. For most stuff, point people to the web page
Barry Warsaw <barry@python.org>
parents:
9027
diff
changeset
|
39 ;; http://www.python.org/emacs/python-mode/ |
|
65139719b656
Update commentary. For most stuff, point people to the web page
Barry Warsaw <barry@python.org>
parents:
9027
diff
changeset
|
40 ;; |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
41 ;; It does contain links to other packages that you might find useful, |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
42 ;; such as pdb interfaces, OO-Browser links, etc. |
|
6836
0255b5ecde10
Update to the Big Comment at the top of the file. It should better
Barry Warsaw <barry@python.org>
parents:
6767
diff
changeset
|
43 |
|
0255b5ecde10
Update to the Big Comment at the top of the file. It should better
Barry Warsaw <barry@python.org>
parents:
6767
diff
changeset
|
44 ;; BUG REPORTING: |
| 2018 | 45 |
| 17416 | 46 ;; As mentioned above, please use the SourceForge Python project for |
| 47 ;; submitting bug reports or patches. The old recommendation, to use | |
| 48 ;; C-c C-b will still work, but those reports have a higher chance of | |
| 49 ;; getting buried in my mailbox. Please include a complete, but | |
|
6544
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
50 ;; concise code sample and a recipe for reproducing the bug. Send |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
51 ;; suggestions and other comments to python-mode@python.org. |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
52 |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
53 ;; When in a Python mode buffer, do a C-h m for more help. It's |
|
6836
0255b5ecde10
Update to the Big Comment at the top of the file. It should better
Barry Warsaw <barry@python.org>
parents:
6767
diff
changeset
|
54 ;; doubtful that a texinfo manual would be very useful, but if you |
|
0255b5ecde10
Update to the Big Comment at the top of the file. It should better
Barry Warsaw <barry@python.org>
parents:
6767
diff
changeset
|
55 ;; want to contribute one, I'll certainly accept it! |
|
2543
1a448dd84edc
(py-submit-bug-report): fixed summary querying
Barry Warsaw <barry@python.org>
parents:
2537
diff
changeset
|
56 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
57 ;;; Code: |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
58 |
|
9027
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
59 (require 'comint) |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
60 (require 'custom) |
| 17416 | 61 (require 'cl) |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
62 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
63 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
64 ;; user definable variables |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
65 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv |
| 2018 | 66 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
67 (defgroup python nil |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
68 "Support for the Python programming language, <http://www.python.org/>" |
|
11147
bbd035e5a972
A few minor Customize changes:
Barry Warsaw <barry@python.org>
parents:
11146
diff
changeset
|
69 :group 'languages |
|
bbd035e5a972
A few minor Customize changes:
Barry Warsaw <barry@python.org>
parents:
11146
diff
changeset
|
70 :prefix "py-") |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
71 |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
72 (defcustom py-python-command "python" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
73 "*Shell command used to start Python interpreter." |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
74 :type 'string |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
75 :group 'python) |
| 2018 | 76 |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
77 (defcustom py-jpython-command "jpython" |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
78 "*Shell command used to start the JPython interpreter." |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
79 :type 'string |
|
11147
bbd035e5a972
A few minor Customize changes:
Barry Warsaw <barry@python.org>
parents:
11146
diff
changeset
|
80 :group 'python |
|
bbd035e5a972
A few minor Customize changes:
Barry Warsaw <barry@python.org>
parents:
11146
diff
changeset
|
81 :tag "JPython Command") |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
82 |
|
10207
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
83 (defcustom py-default-interpreter 'cpython |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
84 "*Which Python interpreter is used by default. |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
85 The value for this variable can be either `cpython' or `jpython'. |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
86 |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
87 When the value is `cpython', the variables `py-python-command' and |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
88 `py-python-command-args' are consulted to determine the interpreter |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
89 and arguments to use. |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
90 |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
91 When the value is `jpython', the variables `py-jpython-command' and |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
92 `py-jpython-command-args' are consulted to determine the interpreter |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
93 and arguments to use. |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
94 |
|
11146
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
95 Note that this variable is consulted only the first time that a Python |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
96 mode buffer is visited during an Emacs session. After that, use |
|
10207
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
97 \\[py-toggle-shells] to change the interpreter shell." |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
98 :type '(choice (const :tag "Python (a.k.a. CPython)" cpython) |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
99 (const :tag "JPython" jpython)) |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
100 :group 'python) |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
101 |
|
7197
26d07735ba4a
(py-python-command-args): New variable, allows user to customize the
Barry Warsaw <barry@python.org>
parents:
7152
diff
changeset
|
102 (defcustom py-python-command-args '("-i") |
|
26d07735ba4a
(py-python-command-args): New variable, allows user to customize the
Barry Warsaw <barry@python.org>
parents:
7152
diff
changeset
|
103 "*List of string arguments to be used when starting a Python shell." |
|
26d07735ba4a
(py-python-command-args): New variable, allows user to customize the
Barry Warsaw <barry@python.org>
parents:
7152
diff
changeset
|
104 :type '(repeat string) |
|
26d07735ba4a
(py-python-command-args): New variable, allows user to customize the
Barry Warsaw <barry@python.org>
parents:
7152
diff
changeset
|
105 :group 'python) |
|
26d07735ba4a
(py-python-command-args): New variable, allows user to customize the
Barry Warsaw <barry@python.org>
parents:
7152
diff
changeset
|
106 |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
107 (defcustom py-jpython-command-args '("-i") |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
108 "*List of string arguments to be used when starting a JPython shell." |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
109 :type '(repeat string) |
|
11147
bbd035e5a972
A few minor Customize changes:
Barry Warsaw <barry@python.org>
parents:
11146
diff
changeset
|
110 :group 'python |
|
bbd035e5a972
A few minor Customize changes:
Barry Warsaw <barry@python.org>
parents:
11146
diff
changeset
|
111 :tag "JPython Command Args") |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
112 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
113 (defcustom py-indent-offset 4 |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
114 "*Amount of offset per level of indentation. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
115 `\\[py-guess-indent-offset]' can usually guess a good value when |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
116 you're editing someone else's Python code." |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
117 :type 'integer |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
118 :group 'python) |
| 2018 | 119 |
|
18150
9ce8a995bf12
(py-continuation-offset): New variable which controls how much to
Barry Warsaw <barry@python.org>
parents:
17422
diff
changeset
|
120 (defcustom py-continuation-offset 4 |
|
18412
a29bef457ed8
(py-continuation-offset): Update docstring to describe that this
Barry Warsaw <barry@python.org>
parents:
18156
diff
changeset
|
121 "*Additional amount of offset to give for some continuation lines. |
|
18150
9ce8a995bf12
(py-continuation-offset): New variable which controls how much to
Barry Warsaw <barry@python.org>
parents:
17422
diff
changeset
|
122 Continuation lines are those that immediately follow a backslash |
|
18412
a29bef457ed8
(py-continuation-offset): Update docstring to describe that this
Barry Warsaw <barry@python.org>
parents:
18156
diff
changeset
|
123 terminated line. Only those continuation lines for a block opening |
|
a29bef457ed8
(py-continuation-offset): Update docstring to describe that this
Barry Warsaw <barry@python.org>
parents:
18156
diff
changeset
|
124 statement are given this extra offset." |
|
18150
9ce8a995bf12
(py-continuation-offset): New variable which controls how much to
Barry Warsaw <barry@python.org>
parents:
17422
diff
changeset
|
125 :type 'integer |
|
9ce8a995bf12
(py-continuation-offset): New variable which controls how much to
Barry Warsaw <barry@python.org>
parents:
17422
diff
changeset
|
126 :group 'python) |
|
9ce8a995bf12
(py-continuation-offset): New variable which controls how much to
Barry Warsaw <barry@python.org>
parents:
17422
diff
changeset
|
127 |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
128 (defcustom py-smart-indentation t |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
129 "*Should `python-mode' try to automagically set some indentation variables? |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
130 When this variable is non-nil, two things happen when a buffer is set |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
131 to `python-mode': |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
132 |
|
10918
a8a1eb99341c
(py-statement-closes-block-p): py-goto-initial-line could leave us in
Barry Warsaw <barry@python.org>
parents:
10877
diff
changeset
|
133 1. `py-indent-offset' is guessed from existing code in the buffer. |
|
7699
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
134 Only guessed values between 2 and 8 are considered. If a valid |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
135 guess can't be made (perhaps because you are visiting a new |
|
7699
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
136 file), then the value in `py-indent-offset' is used. |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
137 |
|
7699
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
138 2. `indent-tabs-mode' is turned off if `py-indent-offset' does not |
|
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
139 equal `tab-width' (`indent-tabs-mode' is never turned on by |
|
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
140 Python mode). This means that for newly written code, tabs are |
|
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
141 only inserted in indentation if one tab is one indentation |
|
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
142 level, otherwise only spaces are used. |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
143 |
|
7676
bdcf708ae4da
#(py-smart-indentation): Small fixes for clarity in the docstring.
Barry Warsaw <barry@python.org>
parents:
7675
diff
changeset
|
144 Note that both these settings occur *after* `python-mode-hook' is run, |
|
bdcf708ae4da
#(py-smart-indentation): Small fixes for clarity in the docstring.
Barry Warsaw <barry@python.org>
parents:
7675
diff
changeset
|
145 so if you want to defeat the automagic configuration, you must also |
|
bdcf708ae4da
#(py-smart-indentation): Small fixes for clarity in the docstring.
Barry Warsaw <barry@python.org>
parents:
7675
diff
changeset
|
146 set `py-smart-indentation' to nil in your `python-mode-hook'." |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
147 :type 'boolean |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
148 :group 'python) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
149 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
150 (defcustom py-align-multiline-strings-p t |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
151 "*Flag describing how multi-line triple quoted strings are aligned. |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
152 When this flag is non-nil, continuation lines are lined up under the |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
153 preceding line's indentation. When this flag is nil, continuation |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
154 lines are aligned to column zero." |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
155 :type '(choice (const :tag "Align under preceding line" t) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
156 (const :tag "Align to column zero" nil)) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
157 :group 'python) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
158 |
|
9136
e1b710e30acf
(py-block-comment-prefix): Remove trailing space. Also explain that
Barry Warsaw <barry@python.org>
parents:
9106
diff
changeset
|
159 (defcustom py-block-comment-prefix "##" |
|
3445
07977bf0d997
(py-comment-region): obsoleted by comment-region
Barry Warsaw <barry@python.org>
parents:
3436
diff
changeset
|
160 "*String used by \\[comment-region] to comment out a block of code. |
| 2018 | 161 This should follow the convention for non-indenting comment lines so |
| 162 that the indentation commands won't get confused (i.e., the string | |
| 163 should be of the form `#x...' where `x' is not a blank or a tab, and | |
|
9136
e1b710e30acf
(py-block-comment-prefix): Remove trailing space. Also explain that
Barry Warsaw <barry@python.org>
parents:
9106
diff
changeset
|
164 `...' is arbitrary). However, this string should not end in whitespace." |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
165 :type 'string |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
166 :group 'python) |
| 2018 | 167 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
168 (defcustom py-honor-comment-indentation t |
|
3434
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
169 "*Controls how comment lines influence subsequent indentation. |
|
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
170 |
|
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
171 When nil, all comment lines are skipped for indentation purposes, and |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
172 if possible, a faster algorithm is used (i.e. X/Emacs 19 and beyond). |
|
3429
da86b3b54363
(py-honor-comment-indentation): new variable.
Barry Warsaw <barry@python.org>
parents:
3428
diff
changeset
|
173 |
|
3434
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
174 When t, lines that begin with a single `#' are a hint to subsequent |
|
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
175 line indentation. If the previous line is such a comment line (as |
|
8370
f2b0859fece3
#Documentation and comment typos patch given by Michael Ernst. More
Barry Warsaw <barry@python.org>
parents:
8070
diff
changeset
|
176 opposed to one that starts with `py-block-comment-prefix'), then its |
|
3434
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
177 indentation is used as a hint for this line's indentation. Lines that |
|
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
178 begin with `py-block-comment-prefix' are ignored for indentation |
|
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
179 purposes. |
|
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
180 |
|
22336
029e4cbd2312
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
18415
diff
changeset
|
181 When not nil or t, comment lines that begin with a single `#' are used |
|
029e4cbd2312
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
18415
diff
changeset
|
182 as indentation hints, unless the comment character is in column zero." |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
183 :type '(choice |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
184 (const :tag "Skip all comment lines (fast)" nil) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
185 (const :tag "Single # `sets' indentation for next line" t) |
|
6544
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
186 (const :tag "Single # `sets' indentation except at column zero" |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
187 other) |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
188 ) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
189 :group 'python) |
|
3429
da86b3b54363
(py-honor-comment-indentation): new variable.
Barry Warsaw <barry@python.org>
parents:
3428
diff
changeset
|
190 |
|
5969
5f6a2eadab97
#Fixed two byte-compiler errors
Barry Warsaw <barry@python.org>
parents:
5968
diff
changeset
|
191 (defcustom py-temp-directory |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
192 (let ((ok '(lambda (x) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
193 (and x |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
194 (setq x (expand-file-name x)) ; always true |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
195 (file-directory-p x) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
196 (file-writable-p x) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
197 x)))) |
| 2018 | 198 (or (funcall ok (getenv "TMPDIR")) |
| 199 (funcall ok "/usr/tmp") | |
| 200 (funcall ok "/tmp") | |
|
22524
0aae09986fc9
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
22336
diff
changeset
|
201 (funcall ok "/var/tmp") |
| 2018 | 202 (funcall ok ".") |
| 203 (error | |
|
7480
55c3fd1853ce
(py-temp-directory): Minor docstring nit.
Barry Warsaw <barry@python.org>
parents:
7478
diff
changeset
|
204 "Couldn't find a usable temp directory -- set `py-temp-directory'"))) |
|
22524
0aae09986fc9
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
22336
diff
changeset
|
205 "*Directory used for temporary files created by a *Python* process. |
| 2018 | 206 By default, the first directory from this list that exists and that you |
|
22524
0aae09986fc9
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
22336
diff
changeset
|
207 can write into: the value (if any) of the environment variable TMPDIR, |
|
0aae09986fc9
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
22336
diff
changeset
|
208 /usr/tmp, /tmp, /var/tmp, or the current directory." |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
209 :type 'string |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
210 :group 'python) |
| 2018 | 211 |
|
5969
5f6a2eadab97
#Fixed two byte-compiler errors
Barry Warsaw <barry@python.org>
parents:
5968
diff
changeset
|
212 (defcustom py-beep-if-tab-change t |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
213 "*Ring the bell if `tab-width' is changed. |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
214 If a comment of the form |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
215 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
216 \t# vi:set tabsize=<number>: |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
217 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
218 is found before the first code line when the file is entered, and the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
219 current value of (the general Emacs variable) `tab-width' does not |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
220 equal <number>, `tab-width' is set to <number>, a message saying so is |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
221 displayed in the echo area, and if `py-beep-if-tab-change' is non-nil |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
222 the Emacs bell is also rung as a warning." |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
223 :type 'boolean |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
224 :group 'python) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
225 |
|
6731
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
226 (defcustom py-jump-on-exception t |
|
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
227 "*Jump to innermost exception frame in *Python Output* buffer. |
|
8924
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
228 When this variable is non-nil and an exception occurs when running |
|
6731
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
229 Python code synchronously in a subprocess, jump immediately to the |
|
8924
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
230 source code of the innermost traceback frame." |
|
8381
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
231 :type 'boolean |
|
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
232 :group 'python) |
|
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
233 |
|
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
234 (defcustom py-ask-about-save t |
|
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
235 "If not nil, ask about which buffers to save before executing some code. |
|
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
236 Otherwise, all modified buffers are saved without asking." |
|
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
237 :type 'boolean |
|
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
238 :group 'python) |
|
6731
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
239 |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
240 (defcustom py-backspace-function 'backward-delete-char-untabify |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
241 "*Function called by `py-electric-backspace' when deleting backwards." |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
242 :type 'function |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
243 :group 'python) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
244 |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
245 (defcustom py-delete-function 'delete-char |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
246 "*Function called by `py-electric-delete' when deleting forwards." |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
247 :type 'function |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
248 :group 'python) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
249 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
250 (defcustom py-imenu-show-method-args-p nil |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
251 "*Controls echoing of arguments of functions & methods in the Imenu buffer. |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
252 When non-nil, arguments are printed." |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
253 :type 'boolean |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
254 :group 'python) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
255 (make-variable-buffer-local 'py-indent-offset) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
256 |
| 17416 | 257 (defcustom py-pdbtrack-do-tracking-p t |
| 258 "*Controls whether the pdbtrack feature is enabled or not. | |
| 259 When non-nil, pdbtrack is enabled in all comint-based buffers, | |
| 260 e.g. shell buffers and the *Python* buffer. When using pdb to debug a | |
| 261 Python program, pdbtrack notices the pdb prompt and displays the | |
| 262 source file and line that the program is stopped at, much the same way | |
| 263 as gud-mode does for debugging C programs with gdb." | |
| 264 :type 'boolean | |
| 265 :group 'python) | |
| 266 (make-variable-buffer-local 'py-pdbtrack-do-tracking-p) | |
| 267 | |
| 268 (defcustom py-pdbtrack-minor-mode-string " PDB" | |
| 269 "*String to use in the minor mode list when pdbtrack is enabled." | |
| 270 :type 'string | |
| 271 :group 'python) | |
| 272 | |
|
23277
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
273 (defcustom py-import-check-point-max |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
274 20000 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
275 "Maximum number of characters to search for a Java-ish import statement. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
276 When `python-mode' tries to calculate the shell to use (either a |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
277 CPython or a JPython shell), it looks at the so-called `shebang' line |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
278 -- i.e. #! line. If that's not available, it looks at some of the |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
279 file heading imports to see if they look Java-like." |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
280 :type 'integer |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
281 :group 'python |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
282 ) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
283 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
284 (defcustom py-jpython-packages |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
285 '("java" "javax" "org" "com") |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
286 "Imported packages that imply `jpython-mode'." |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
287 :type '(repeat string) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
288 :group 'python) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
289 |
|
7142
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
290 ;; Not customizable |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
291 (defvar py-master-file nil |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
292 "If non-nil, execute the named file instead of the buffer's file. |
|
7478
80739b0bc302
(py-master-file): Fixed some typos in the docstring.
Barry Warsaw <barry@python.org>
parents:
7262
diff
changeset
|
293 The intent is to allow you to set this variable in the file's local |
|
7142
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
294 variable section, e.g.: |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
295 |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
296 # Local Variables: |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
297 # py-master-file: \"master.py\" |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
298 # End: |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
299 |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
300 so that typing \\[py-execute-buffer] in that buffer executes the named |
|
9454
e5996279f58c
#Fixed some typos in docstrings.
Barry Warsaw <barry@python.org>
parents:
9144
diff
changeset
|
301 master file instead of the buffer's file. If the file name has a |
|
e5996279f58c
#Fixed some typos in docstrings.
Barry Warsaw <barry@python.org>
parents:
9144
diff
changeset
|
302 relative path, the value of variable `default-directory' for the |
|
e5996279f58c
#Fixed some typos in docstrings.
Barry Warsaw <barry@python.org>
parents:
9144
diff
changeset
|
303 buffer is prepended to come up with a file name.") |
|
7142
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
304 (make-variable-buffer-local 'py-master-file) |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
305 |
|
23229
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
306 (defcustom py-pychecker-command "pychecker" |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
307 "*Shell command used to run Pychecker." |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
308 :type 'string |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
309 :group 'python |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
310 :tag "Pychecker Command") |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
311 |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
312 (defcustom py-pychecker-command-args '("--stdlib") |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
313 "*List of string arguments to be passed to pychecker." |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
314 :type '(repeat string) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
315 :group 'python |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
316 :tag "Pychecker Command Args") |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
317 |
|
23277
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
318 (defvar py-shell-alist |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
319 '(("jpython" . 'jpython) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
320 ("jython" . 'jpython) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
321 ("python" . 'cpython)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
322 "*Alist of interpreters and python shells. Used by `py-choose-shell' |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
323 to select the appropriate python interpreter mode for a file.") |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
324 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
325 |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
326 ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
327 ;; NO USER DEFINABLE VARIABLES BEYOND THIS POINT |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
328 |
|
6562
53835043528c
(py-emacs-features): Test for working make-temp-name, which is broken
Barry Warsaw <barry@python.org>
parents:
6560
diff
changeset
|
329 (defconst py-emacs-features |
|
53835043528c
(py-emacs-features): Test for working make-temp-name, which is broken
Barry Warsaw <barry@python.org>
parents:
6560
diff
changeset
|
330 (let (features) |
|
53835043528c
(py-emacs-features): Test for working make-temp-name, which is broken
Barry Warsaw <barry@python.org>
parents:
6560
diff
changeset
|
331 features) |
|
6232
fc5e1e004994
(py-parse-partial-sexp-works-p): Removed as obsolete. All current
Barry Warsaw <barry@python.org>
parents:
5969
diff
changeset
|
332 "A list of features extant in the Emacs you are using. |
|
6565
e1c8d7182d66
#(py-emacs-features): Fixed typo in docstring.
Barry Warsaw <barry@python.org>
parents:
6564
diff
changeset
|
333 There are many flavors of Emacs out there, with different levels of |
|
e1c8d7182d66
#(py-emacs-features): Fixed typo in docstring.
Barry Warsaw <barry@python.org>
parents:
6564
diff
changeset
|
334 support for features needed by `python-mode'.") |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
335 |
|
23229
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
336 ;; Face for None, True, False, self, and Ellipsis |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
337 (defvar py-pseudo-keyword-face 'py-pseudo-keyword-face |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
338 "Face for pseudo keywords in Python mode, like self, True, False, Ellipsis.") |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
339 (make-face 'py-pseudo-keyword-face) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
340 |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
341 (defun py-font-lock-mode-hook () |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
342 (or (face-differs-from-default-p 'py-pseudo-keyword-face) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
343 (copy-face 'font-lock-keyword-face 'py-pseudo-keyword-face))) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
344 (add-hook 'font-lock-mode-hook 'py-font-lock-mode-hook) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
345 |
|
5150
4665e2849a4a
(python-font-lock-keywords): Use new convention for installing in mode
Barry Warsaw <barry@python.org>
parents:
5075
diff
changeset
|
346 (defvar python-font-lock-keywords |
|
6564
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
347 (let ((kw1 (mapconcat 'identity |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
348 '("and" "assert" "break" "class" |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
349 "continue" "def" "del" "elif" |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
350 "else" "except" "exec" "for" |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
351 "from" "global" "if" "import" |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
352 "in" "is" "lambda" "not" |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
353 "or" "pass" "print" "raise" |
|
18156
0ec03e1be558
(python-font-lock-keywords): Add "yield" as a keyword to support the
Barry Warsaw <barry@python.org>
parents:
18150
diff
changeset
|
354 "return" "while" "yield" |
|
6564
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
355 ) |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
356 "\\|")) |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
357 (kw2 (mapconcat 'identity |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
358 '("else:" "except:" "finally:" "try:") |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
359 "\\|")) |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
360 ) |
|
3427
af5ff5231d4a
(python-font-lock-keywords): Much improved descrimination between
Barry Warsaw <barry@python.org>
parents:
3426
diff
changeset
|
361 (list |
|
6563
2aa13c0c8f2f
(python-font-lock-keywords): Fix for consecutive keyword font locking,
Barry Warsaw <barry@python.org>
parents:
6562
diff
changeset
|
362 ;; keywords |
|
6564
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
363 (cons (concat "\\b\\(" kw1 "\\)\\b[ \n\t(]") 1) |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
364 ;; block introducing keywords with immediately following colons. |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
365 ;; Yes "except" is in both lists. |
|
812aad8c05c2
(python-font-lock-keywords): Pick up block introducing keywords with
Barry Warsaw <barry@python.org>
parents:
6563
diff
changeset
|
366 (cons (concat "\\b\\(" kw2 "\\)[ \n\t(]") 1) |
|
15668
8b4ca5da7dc2
(python-font-lock-keywords): Add highlighting of `as' as a keyword,
Barry Warsaw <barry@python.org>
parents:
15353
diff
changeset
|
367 ;; `as' but only in "import foo as bar" |
|
8b4ca5da7dc2
(python-font-lock-keywords): Add highlighting of `as' as a keyword,
Barry Warsaw <barry@python.org>
parents:
15353
diff
changeset
|
368 '("[ \t]*\\(\\bfrom\\b.*\\)?\\bimport\\b.*\\b\\(as\\)\\b" . 2) |
|
3427
af5ff5231d4a
(python-font-lock-keywords): Much improved descrimination between
Barry Warsaw <barry@python.org>
parents:
3426
diff
changeset
|
369 ;; classes |
|
af5ff5231d4a
(python-font-lock-keywords): Much improved descrimination between
Barry Warsaw <barry@python.org>
parents:
3426
diff
changeset
|
370 '("\\bclass[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)" |
|
af5ff5231d4a
(python-font-lock-keywords): Much improved descrimination between
Barry Warsaw <barry@python.org>
parents:
3426
diff
changeset
|
371 1 font-lock-type-face) |
|
af5ff5231d4a
(python-font-lock-keywords): Much improved descrimination between
Barry Warsaw <barry@python.org>
parents:
3426
diff
changeset
|
372 ;; functions |
|
af5ff5231d4a
(python-font-lock-keywords): Much improved descrimination between
Barry Warsaw <barry@python.org>
parents:
3426
diff
changeset
|
373 '("\\bdef[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)" |
|
af5ff5231d4a
(python-font-lock-keywords): Much improved descrimination between
Barry Warsaw <barry@python.org>
parents:
3426
diff
changeset
|
374 1 font-lock-function-name-face) |
|
23229
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
375 ;; pseudo-keywords |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
376 '("\\b\\(self\\|None\\|True\\|False\\|Ellipsis\\)\\b" |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
377 1 py-pseudo-keyword-face) |
|
3427
af5ff5231d4a
(python-font-lock-keywords): Much improved descrimination between
Barry Warsaw <barry@python.org>
parents:
3426
diff
changeset
|
378 )) |
|
3436
db9f6ede58a7
(python-font-lock-keywords): make it a defconst
Barry Warsaw <barry@python.org>
parents:
3434
diff
changeset
|
379 "Additional expressions to highlight in Python mode.") |
|
5150
4665e2849a4a
(python-font-lock-keywords): Use new convention for installing in mode
Barry Warsaw <barry@python.org>
parents:
5075
diff
changeset
|
380 (put 'python-mode 'font-lock-defaults '(python-font-lock-keywords)) |
|
4665e2849a4a
(python-font-lock-keywords): Use new convention for installing in mode
Barry Warsaw <barry@python.org>
parents:
5075
diff
changeset
|
381 |
|
6668
98552704b88f
(python-mode): Patch to fix Imenu support under Emacs, given by
Barry Warsaw <barry@python.org>
parents:
6667
diff
changeset
|
382 ;; have to bind py-file-queue before installing the kill-emacs-hook |
| 2018 | 383 (defvar py-file-queue nil |
| 384 "Queue of Python temp files awaiting execution. | |
| 385 Currently-active file is at the head of the list.") | |
| 386 | |
| 17416 | 387 (defvar py-pdbtrack-is-tracking-p nil) |
|
23229
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
388 (defvar py-pychecker-history nil) |
| 17416 | 389 |
| 390 | |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
391 |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
392 ;; Constants |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
393 |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
394 (defconst py-stringlit-re |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
395 (concat |
|
8379
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
396 ;; These fail if backslash-quote ends the string (not worth |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
397 ;; fixing?). They precede the short versions so that the first two |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
398 ;; quotes don't look like an empty short string. |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
399 ;; |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
400 ;; (maybe raw), long single quoted triple quoted strings (SQTQ), |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
401 ;; with potential embedded single quotes |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
402 "[rR]?'''[^']*\\(\\('[^']\\|''[^']\\)[^']*\\)*'''" |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
403 "\\|" |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
404 ;; (maybe raw), long double quoted triple quoted strings (DQTQ), |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
405 ;; with potential embedded double quotes |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
406 "[rR]?\"\"\"[^\"]*\\(\\(\"[^\"]\\|\"\"[^\"]\\)[^\"]*\\)*\"\"\"" |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
407 "\\|" |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
408 "[rR]?'\\([^'\n\\]\\|\\\\.\\)*'" ; single-quoted |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
409 "\\|" ; or |
|
8379
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
410 "[rR]?\"\\([^\"\n\\]\\|\\\\.\\)*\"" ; double-quoted |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
411 ) |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
412 "Regular expression matching a Python string literal.") |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
413 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
414 (defconst py-continued-re |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
415 ;; This is tricky because a trailing backslash does not mean |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
416 ;; continuation if it's in a comment |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
417 (concat |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
418 "\\(" "[^#'\"\n\\]" "\\|" py-stringlit-re "\\)*" |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
419 "\\\\$") |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
420 "Regular expression matching Python backslash continuation lines.") |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
421 |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
422 (defconst py-blank-or-comment-re "[ \t]*\\($\\|#\\)" |
|
8911
9a984276cc56
#Typos from previous checkin
Barry Warsaw <barry@python.org>
parents:
8910
diff
changeset
|
423 "Regular expression matching a blank or comment line.") |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
424 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
425 (defconst py-outdent-re |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
426 (concat "\\(" (mapconcat 'identity |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
427 '("else:" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
428 "except\\(\\s +.*\\)?:" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
429 "finally:" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
430 "elif\\s +.*:") |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
431 "\\|") |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
432 "\\)") |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
433 "Regular expression matching statements to be dedented one level.") |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
434 |
|
6544
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
435 (defconst py-block-closing-keywords-re |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
436 "\\(return\\|raise\\|break\\|continue\\|pass\\)" |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
437 "Regular expression matching keywords which typically close a block.") |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
438 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
439 (defconst py-no-outdent-re |
|
6544
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
440 (concat |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
441 "\\(" |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
442 (mapconcat 'identity |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
443 (list "try:" |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
444 "except\\(\\s +.*\\)?:" |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
445 "while\\s +.*:" |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
446 "for\\s +.*:" |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
447 "if\\s +.*:" |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
448 "elif\\s +.*:" |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
449 (concat py-block-closing-keywords-re "[ \t\n]") |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
450 ) |
|
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
451 "\\|") |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
452 "\\)") |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
453 "Regular expression matching lines not to dedent after.") |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
454 |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
455 (defconst py-defun-start-re |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
456 "^\\([ \t]*\\)def[ \t]+\\([a-zA-Z_0-9]+\\)\\|\\(^[a-zA-Z_0-9]+\\)[ \t]*=" |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
457 ;; If you change this, you probably have to change py-current-defun |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
458 ;; as well. This is only used by py-current-defun to find the name |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
459 ;; for add-log.el. |
|
8911
9a984276cc56
#Typos from previous checkin
Barry Warsaw <barry@python.org>
parents:
8910
diff
changeset
|
460 "Regular expression matching a function, method, or variable assignment.") |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
461 |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
462 (defconst py-class-start-re "^class[ \t]*\\([a-zA-Z_0-9]+\\)" |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
463 ;; If you change this, you probably have to change py-current-defun |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
464 ;; as well. This is only used by py-current-defun to find the name |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
465 ;; for add-log.el. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
466 "Regular expression for finding a class name.") |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
467 |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
468 (defconst py-traceback-line-re |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
469 "[ \t]+File \"\\([^\"]+\\)\", line \\([0-9]+\\)" |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
470 "Regular expression that describes tracebacks.") |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
471 |
| 17416 | 472 ;; pdbtrack contants |
| 473 (defconst py-pdbtrack-stack-entry-regexp | |
| 474 "> \\([^(]+\\)(\\([0-9]+\\))[?a-zA-Z0-9_]+()" | |
| 475 "Regular expression pdbtrack uses to find a stack trace entry.") | |
| 476 | |
| 477 (defconst py-pdbtrack-input-prompt "\n[(<]?pdb[>)]? " | |
| 478 "Regular expression pdbtrack uses to recognize a pdb prompt.") | |
| 479 | |
| 480 (defconst py-pdbtrack-track-range 10000 | |
| 481 "Max number of characters from end of buffer to search for stack entry.") | |
| 482 | |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
483 |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
484 |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
485 ;; Major mode boilerplate |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
486 |
| 2018 | 487 ;; define a mode-specific abbrev table for those who use such things |
| 488 (defvar python-mode-abbrev-table nil | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
489 "Abbrev table in use in `python-mode' buffers.") |
| 2018 | 490 (define-abbrev-table 'python-mode-abbrev-table nil) |
| 491 | |
| 492 (defvar python-mode-hook nil | |
| 493 "*Hook called by `python-mode'.") | |
| 494 | |
|
23277
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
495 (defvar jpython-mode-hook nil |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
496 "*Hook called by `jpython-mode'. `jpython-mode' also calls |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
497 `python-mode-hook'.") |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
498 |
|
23270
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
499 (defvar py-shell-hook nil |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
500 "*Hook called by `py-shell'.") |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
501 |
|
8370
f2b0859fece3
#Documentation and comment typos patch given by Michael Ernst. More
Barry Warsaw <barry@python.org>
parents:
8070
diff
changeset
|
502 ;; In previous version of python-mode.el, the hook was incorrectly |
|
f2b0859fece3
#Documentation and comment typos patch given by Michael Ernst. More
Barry Warsaw <barry@python.org>
parents:
8070
diff
changeset
|
503 ;; called py-mode-hook, and was not defvar'd. Deprecate its use. |
| 2018 | 504 (and (fboundp 'make-obsolete-variable) |
| 505 (make-obsolete-variable 'py-mode-hook 'python-mode-hook)) | |
| 506 | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
507 (defvar py-mode-map () |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
508 "Keymap used in `python-mode' buffers.") |
| 2018 | 509 (if py-mode-map |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
510 nil |
| 2018 | 511 (setq py-mode-map (make-sparse-keymap)) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
512 ;; electric keys |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
513 (define-key py-mode-map ":" 'py-electric-colon) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
514 ;; indentation level modifiers |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
515 (define-key py-mode-map "\C-c\C-l" 'py-shift-region-left) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
516 (define-key py-mode-map "\C-c\C-r" 'py-shift-region-right) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
517 (define-key py-mode-map "\C-c<" 'py-shift-region-left) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
518 (define-key py-mode-map "\C-c>" 'py-shift-region-right) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
519 ;; subprocess commands |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
520 (define-key py-mode-map "\C-c\C-c" 'py-execute-buffer) |
| 8378 | 521 (define-key py-mode-map "\C-c\C-m" 'py-execute-import-or-reload) |
|
8380
cd2dfed0c44b
(py-execute-string): Bind to C-c C-s, and put on menu
Barry Warsaw <barry@python.org>
parents:
8379
diff
changeset
|
522 (define-key py-mode-map "\C-c\C-s" 'py-execute-string) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
523 (define-key py-mode-map "\C-c|" 'py-execute-region) |
| 8378 | 524 (define-key py-mode-map "\e\C-x" 'py-execute-def-or-class) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
525 (define-key py-mode-map "\C-c!" 'py-shell) |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
526 (define-key py-mode-map "\C-c\C-t" 'py-toggle-shells) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
527 ;; Caution! Enter here at your own risk. We are trying to support |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
528 ;; several behaviors and it gets disgusting. :-( This logic ripped |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
529 ;; largely from CC Mode. |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
530 ;; |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
531 ;; In XEmacs 19, Emacs 19, and Emacs 20, we use this to bind |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
532 ;; backwards deletion behavior to DEL, which both Delete and |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
533 ;; Backspace get translated to. There's no way to separate this |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
534 ;; behavior in a clean way, so deal with it! Besides, it's been |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
535 ;; this way since the dawn of time. |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
536 (if (not (boundp 'delete-key-deletes-forward)) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
537 (define-key py-mode-map "\177" 'py-electric-backspace) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
538 ;; However, XEmacs 20 actually achieved enlightenment. It is |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
539 ;; possible to sanely define both backward and forward deletion |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
540 ;; behavior under X separately (TTYs are forever beyond hope, but |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
541 ;; who cares? XEmacs 20 does the right thing with these too). |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
542 (define-key py-mode-map [delete] 'py-electric-delete) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
543 (define-key py-mode-map [backspace] 'py-electric-backspace)) |
|
6677
e45b83708d9e
(py-mode-map): Bind py-mark-def-or-class to C-M-h with a different
Barry Warsaw <barry@python.org>
parents:
6670
diff
changeset
|
544 ;; Separate M-BS from C-M-h. The former should remain |
|
e45b83708d9e
(py-mode-map): Bind py-mark-def-or-class to C-M-h with a different
Barry Warsaw <barry@python.org>
parents:
6670
diff
changeset
|
545 ;; backward-kill-word. |
|
e45b83708d9e
(py-mode-map): Bind py-mark-def-or-class to C-M-h with a different
Barry Warsaw <barry@python.org>
parents:
6670
diff
changeset
|
546 (define-key py-mode-map [(control meta h)] 'py-mark-def-or-class) |
|
6559
1a233be5fc17
(mark-python-def-or-class): Renamed to py-mark-def-or-class globally.
Barry Warsaw <barry@python.org>
parents:
6556
diff
changeset
|
547 (define-key py-mode-map "\C-c\C-k" 'py-mark-block) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
548 ;; Miscellaneous |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
549 (define-key py-mode-map "\C-c:" 'py-guess-indent-offset) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
550 (define-key py-mode-map "\C-c\t" 'py-indent-region) |
| 17416 | 551 (define-key py-mode-map "\C-c\C-d" 'py-pdbtrack-toggle-stack-tracking) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
552 (define-key py-mode-map "\C-c\C-n" 'py-next-statement) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
553 (define-key py-mode-map "\C-c\C-p" 'py-previous-statement) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
554 (define-key py-mode-map "\C-c\C-u" 'py-goto-block-up) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
555 (define-key py-mode-map "\C-c#" 'py-comment-region) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
556 (define-key py-mode-map "\C-c?" 'py-describe-mode) |
|
23230
863125545301
Merge in Skip's last few updates w.r.t. py-help-at-point:
Barry Warsaw <barry@python.org>
parents:
23229
diff
changeset
|
557 (define-key py-mode-map [f1] 'py-help-at-point) |
|
23224
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
558 (define-key py-mode-map "\C-c\C-h" 'py-help-at-point) |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
559 (define-key py-mode-map "\e\C-a" 'py-beginning-of-def-or-class) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
560 (define-key py-mode-map "\e\C-e" 'py-end-of-def-or-class) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
561 (define-key py-mode-map "\C-c-" 'py-up-exception) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
562 (define-key py-mode-map "\C-c=" 'py-down-exception) |
|
9905
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
563 ;; stuff that is `standard' but doesn't interface well with |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
564 ;; python-mode, which forces us to rebind to special commands |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
565 (define-key py-mode-map "\C-xnd" 'py-narrow-to-defun) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
566 ;; information |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
567 (define-key py-mode-map "\C-c\C-b" 'py-submit-bug-report) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
568 (define-key py-mode-map "\C-c\C-v" 'py-version) |
|
23229
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
569 (define-key py-mode-map "\C-c\C-w" 'py-pychecker-run) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
570 ;; shadow global bindings for newline-and-indent w/ the py- version. |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
571 ;; BAW - this is extremely bad form, but I'm not going to change it |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
572 ;; for now. |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
573 (mapcar #'(lambda (key) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
574 (define-key py-mode-map key 'py-newline-and-indent)) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
575 (where-is-internal 'newline-and-indent)) |
|
9927
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
576 ;; Force RET to be py-newline-and-indent even if it didn't get |
|
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
577 ;; mapped by the above code. motivation: Emacs' default binding for |
|
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
578 ;; RET is `newline' and C-j is `newline-and-indent'. Most Pythoneers |
|
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
579 ;; expect RET to do a `py-newline-and-indent' and any Emacsers who |
|
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
580 ;; dislike this are probably knowledgeable enough to do a rebind. |
|
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
581 ;; However, we do *not* change C-j since many Emacsers have already |
|
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
582 ;; swapped RET and C-j and they don't want C-j bound to `newline' to |
|
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
583 ;; change. |
|
35f568480764
(py-mode-map): Add back force of RET (aka C-m) to
Barry Warsaw <barry@python.org>
parents:
9906
diff
changeset
|
584 (define-key py-mode-map "\C-m" 'py-newline-and-indent) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
585 ) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
586 |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
587 (defvar py-mode-output-map nil |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
588 "Keymap used in *Python Output* buffers.") |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
589 (if py-mode-output-map |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
590 nil |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
591 (setq py-mode-output-map (make-sparse-keymap)) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
592 (define-key py-mode-output-map [button2] 'py-mouseto-exception) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
593 (define-key py-mode-output-map "\C-c\C-c" 'py-goto-exception) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
594 ;; TBD: Disable all self-inserting keys. This is bogus, we should |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
595 ;; really implement this as *Python Output* buffer being read-only |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
596 (mapcar #' (lambda (key) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
597 (define-key py-mode-output-map key |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
598 #'(lambda () (interactive) (beep)))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
599 (where-is-internal 'self-insert-command)) |
|
2495
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
600 ) |
| 2018 | 601 |
|
9027
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
602 (defvar py-shell-map nil |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
603 "Keymap used in *Python* shell buffers.") |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
604 (if py-shell-map |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
605 nil |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
606 (setq py-shell-map (copy-keymap comint-mode-map)) |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
607 (define-key py-shell-map [tab] 'tab-to-tab-stop) |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
608 (define-key py-shell-map "\C-c-" 'py-up-exception) |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
609 (define-key py-shell-map "\C-c=" 'py-down-exception) |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
610 ) |
|
d53237bcf15f
(py-shell-map): New variable contains the keymap used in *Python*
Barry Warsaw <barry@python.org>
parents:
9026
diff
changeset
|
611 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
612 (defvar py-mode-syntax-table nil |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
613 "Syntax table used in `python-mode' buffers.") |
|
23224
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
614 (when (not py-mode-syntax-table) |
| 2018 | 615 (setq py-mode-syntax-table (make-syntax-table)) |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
616 (modify-syntax-entry ?\( "()" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
617 (modify-syntax-entry ?\) ")(" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
618 (modify-syntax-entry ?\[ "(]" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
619 (modify-syntax-entry ?\] ")[" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
620 (modify-syntax-entry ?\{ "(}" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
621 (modify-syntax-entry ?\} "){" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
622 ;; Add operator symbols misassigned in the std table |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
623 (modify-syntax-entry ?\$ "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
624 (modify-syntax-entry ?\% "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
625 (modify-syntax-entry ?\& "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
626 (modify-syntax-entry ?\* "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
627 (modify-syntax-entry ?\+ "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
628 (modify-syntax-entry ?\- "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
629 (modify-syntax-entry ?\/ "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
630 (modify-syntax-entry ?\< "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
631 (modify-syntax-entry ?\= "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
632 (modify-syntax-entry ?\> "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
633 (modify-syntax-entry ?\| "." py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
634 ;; For historical reasons, underscore is word class instead of |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
635 ;; symbol class. GNU conventions say it should be symbol class, but |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
636 ;; there's a natural conflict between what major mode authors want |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
637 ;; and what users expect from `forward-word' and `backward-word'. |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
638 ;; Guido and I have hashed this out and have decided to keep |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
639 ;; underscore in word class. If you're tempted to change it, try |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
640 ;; binding M-f and M-b to py-forward-into-nomenclature and |
|
10207
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
641 ;; py-backward-into-nomenclature instead. This doesn't help in all |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
642 ;; situations where you'd want the different behavior |
|
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
643 ;; (e.g. backward-kill-word). |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
644 (modify-syntax-entry ?\_ "w" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
645 ;; Both single quote and double quote are string delimiters |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
646 (modify-syntax-entry ?\' "\"" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
647 (modify-syntax-entry ?\" "\"" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
648 ;; backquote is open and close paren |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
649 (modify-syntax-entry ?\` "$" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
650 ;; comment delimiters |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
651 (modify-syntax-entry ?\# "<" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
652 (modify-syntax-entry ?\n ">" py-mode-syntax-table) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
653 ) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
654 |
|
23224
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
655 ;; An auxiliary syntax table which places underscore and dot in the |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
656 ;; symbol class for simplicity |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
657 (defvar py-dotted-expression-syntax-table nil |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
658 "Syntax table used to identify Python dotted expressions.") |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
659 (when (not py-dotted-expression-syntax-table) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
660 (setq py-dotted-expression-syntax-table |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
661 (copy-syntax-table py-mode-syntax-table)) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
662 (modify-syntax-entry ?_ "_" py-dotted-expression-syntax-table) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
663 (modify-syntax-entry ?. "_" py-dotted-expression-syntax-table)) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
664 |
|
4195
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
665 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
666 |
|
9106
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
667 ;; Utilities |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
668 (defmacro py-safe (&rest body) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
669 "Safely execute BODY, return nil if an error occurred." |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
670 (` (condition-case nil |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
671 (progn (,@ body)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
672 (error nil)))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
673 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
674 (defsubst py-keep-region-active () |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
675 "Keep the region active in XEmacs." |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
676 ;; Ignore byte-compiler warnings you might see. Also note that |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
677 ;; FSF's Emacs 19 does it differently; its policy doesn't require us |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
678 ;; to take explicit action. |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
679 (and (boundp 'zmacs-region-stays) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
680 (setq zmacs-region-stays t))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
681 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
682 (defsubst py-point (position) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
683 "Returns the value of point at certain commonly referenced POSITIONs. |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
684 POSITION can be one of the following symbols: |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
685 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
686 bol -- beginning of line |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
687 eol -- end of line |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
688 bod -- beginning of def or class |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
689 eod -- end of def or class |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
690 bob -- beginning of buffer |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
691 eob -- end of buffer |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
692 boi -- back to indentation |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
693 bos -- beginning of statement |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
694 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
695 This function does not modify point or mark." |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
696 (let ((here (point))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
697 (cond |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
698 ((eq position 'bol) (beginning-of-line)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
699 ((eq position 'eol) (end-of-line)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
700 ((eq position 'bod) (py-beginning-of-def-or-class)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
701 ((eq position 'eod) (py-end-of-def-or-class)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
702 ;; Kind of funny, I know, but useful for py-up-exception. |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
703 ((eq position 'bob) (beginning-of-buffer)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
704 ((eq position 'eob) (end-of-buffer)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
705 ((eq position 'boi) (back-to-indentation)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
706 ((eq position 'bos) (py-goto-initial-line)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
707 (t (error "Unknown buffer position requested: %s" position)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
708 ) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
709 (prog1 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
710 (point) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
711 (goto-char here)))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
712 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
713 (defsubst py-highlight-line (from to file line) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
714 (cond |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
715 ((fboundp 'make-extent) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
716 ;; XEmacs |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
717 (let ((e (make-extent from to))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
718 (set-extent-property e 'mouse-face 'highlight) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
719 (set-extent-property e 'py-exc-info (cons file line)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
720 (set-extent-property e 'keymap py-mode-output-map))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
721 (t |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
722 ;; Emacs -- Please port this! |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
723 ) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
724 )) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
725 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
726 (defun py-in-literal (&optional lim) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
727 "Return non-nil if point is in a Python literal (a comment or string). |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
728 Optional argument LIM indicates the beginning of the containing form, |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
729 i.e. the limit on how far back to scan." |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
730 ;; This is the version used for non-XEmacs, which has a nicer |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
731 ;; interface. |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
732 ;; |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
733 ;; WARNING: Watch out for infinite recursion. |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
734 (let* ((lim (or lim (py-point 'bod))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
735 (state (parse-partial-sexp lim (point)))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
736 (cond |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
737 ((nth 3 state) 'string) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
738 ((nth 4 state) 'comment) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
739 (t nil)))) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
740 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
741 ;; XEmacs has a built-in function that should make this much quicker. |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
742 ;; In this case, lim is ignored |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
743 (defun py-fast-in-literal (&optional lim) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
744 "Fast version of `py-in-literal', used only by XEmacs. |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
745 Optional LIM is ignored." |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
746 ;; don't have to worry about context == 'block-comment |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
747 (buffer-syntactic-context)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
748 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
749 (if (fboundp 'buffer-syntactic-context) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
750 (defalias 'py-in-literal 'py-fast-in-literal)) |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
751 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
752 |
|
ce52e922fbb2
#Code rearranging to quiet byte-compiler
Barry Warsaw <barry@python.org>
parents:
9063
diff
changeset
|
753 |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
754 ;; Menu definitions, only relevent if you have the easymenu.el package |
|
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
755 ;; (standard in the latest Emacs 19 and XEmacs 19 distributions). |
|
3938
61b4cae77f7e
(py-menu): Create default value
Barry Warsaw <barry@python.org>
parents:
3937
diff
changeset
|
756 (defvar py-menu nil |
|
61b4cae77f7e
(py-menu): Create default value
Barry Warsaw <barry@python.org>
parents:
3937
diff
changeset
|
757 "Menu for Python Mode. |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
758 This menu will get created automatically if you have the `easymenu' |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
759 package. Note that the latest X/Emacs releases contain this package.") |
|
3938
61b4cae77f7e
(py-menu): Create default value
Barry Warsaw <barry@python.org>
parents:
3937
diff
changeset
|
760 |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
761 (and (py-safe (require 'easymenu) t) |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
762 (easy-menu-define |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
763 py-menu py-mode-map "Python Mode menu" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
764 '("Python" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
765 ["Comment Out Region" py-comment-region (mark)] |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
766 ["Uncomment Region" (py-comment-region (point) (mark) '(4)) (mark)] |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
767 "-" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
768 ["Mark current block" py-mark-block t] |
|
6559
1a233be5fc17
(mark-python-def-or-class): Renamed to py-mark-def-or-class globally.
Barry Warsaw <barry@python.org>
parents:
6556
diff
changeset
|
769 ["Mark current def" py-mark-def-or-class t] |
|
1a233be5fc17
(mark-python-def-or-class): Renamed to py-mark-def-or-class globally.
Barry Warsaw <barry@python.org>
parents:
6556
diff
changeset
|
770 ["Mark current class" (py-mark-def-or-class t) t] |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
771 "-" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
772 ["Shift region left" py-shift-region-left (mark)] |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
773 ["Shift region right" py-shift-region-right (mark)] |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
774 "-" |
| 8378 | 775 ["Import/reload file" py-execute-import-or-reload t] |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
776 ["Execute buffer" py-execute-buffer t] |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
777 ["Execute region" py-execute-region (mark)] |
| 8378 | 778 ["Execute def or class" py-execute-def-or-class (mark)] |
|
8380
cd2dfed0c44b
(py-execute-string): Bind to C-c C-s, and put on menu
Barry Warsaw <barry@python.org>
parents:
8379
diff
changeset
|
779 ["Execute string" py-execute-string t] |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
780 ["Start interpreter..." py-shell t] |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
781 "-" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
782 ["Go to start of block" py-goto-block-up t] |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
783 ["Go to start of class" (py-beginning-of-def-or-class t) t] |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
784 ["Move to end of class" (py-end-of-def-or-class t) t] |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
785 ["Move to start of def" py-beginning-of-def-or-class t] |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
786 ["Move to end of def" py-end-of-def-or-class t] |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
787 "-" |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
788 ["Describe mode" py-describe-mode t] |
|
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
789 ))) |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
790 |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
791 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
792 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
793 ;; Imenu definitions |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
794 (defvar py-imenu-class-regexp |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
795 (concat ; <<classes>> |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
796 "\\(" ; |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
797 "^[ \t]*" ; newline and maybe whitespace |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
798 "\\(class[ \t]+[a-zA-Z0-9_]+\\)" ; class name |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
799 ; possibly multiple superclasses |
|
7878
ac2d1c1f1971
(imenu-example--python-class-regexp): Fix to recognize Module.Class in
Barry Warsaw <barry@python.org>
parents:
7796
diff
changeset
|
800 "\\([ \t]*\\((\\([a-zA-Z0-9_,. \t\n]\\)*)\\)?\\)" |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
801 "[ \t]*:" ; and the final : |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
802 "\\)" ; >>classes<< |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
803 ) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
804 "Regexp for Python classes for use with the Imenu package." |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
805 ) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
806 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
807 (defvar py-imenu-method-regexp |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
808 (concat ; <<methods and functions>> |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
809 "\\(" ; |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
810 "^[ \t]*" ; new line and maybe whitespace |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
811 "\\(def[ \t]+" ; function definitions start with def |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
812 "\\([a-zA-Z0-9_]+\\)" ; name is here |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
813 ; function arguments... |
|
9458
e7d984f266cc
(py-imenu-method-regexp): Fix suggested by Daniel Calvelo to
Barry Warsaw <barry@python.org>
parents:
9457
diff
changeset
|
814 ;; "[ \t]*(\\([-+/a-zA-Z0-9_=,\* \t\n.()\"'#]*\\))" |
|
e7d984f266cc
(py-imenu-method-regexp): Fix suggested by Daniel Calvelo to
Barry Warsaw <barry@python.org>
parents:
9457
diff
changeset
|
815 "[ \t]*(\\([^:#]*\\))" |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
816 "\\)" ; end of def |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
817 "[ \t]*:" ; and then the : |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
818 "\\)" ; >>methods and functions<< |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
819 ) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
820 "Regexp for Python methods/functions for use with the Imenu package." |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
821 ) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
822 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
823 (defvar py-imenu-method-no-arg-parens '(2 8) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
824 "Indices into groups of the Python regexp for use with Imenu. |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
825 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
826 Using these values will result in smaller Imenu lists, as arguments to |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
827 functions are not listed. |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
828 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
829 See the variable `py-imenu-show-method-args-p' for more |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
830 information.") |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
831 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
832 (defvar py-imenu-method-arg-parens '(2 7) |
|
9454
e5996279f58c
#Fixed some typos in docstrings.
Barry Warsaw <barry@python.org>
parents:
9144
diff
changeset
|
833 "Indices into groups of the Python regexp for use with imenu. |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
834 Using these values will result in large Imenu lists, as arguments to |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
835 functions are listed. |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
836 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
837 See the variable `py-imenu-show-method-args-p' for more |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
838 information.") |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
839 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
840 ;; Note that in this format, this variable can still be used with the |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
841 ;; imenu--generic-function. Otherwise, there is no real reason to have |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
842 ;; it. |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
843 (defvar py-imenu-generic-expression |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
844 (cons |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
845 (concat |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
846 py-imenu-class-regexp |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
847 "\\|" ; or... |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
848 py-imenu-method-regexp |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
849 ) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
850 py-imenu-method-no-arg-parens) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
851 "Generic Python expression which may be used directly with Imenu. |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
852 Used by setting the variable `imenu-generic-expression' to this value. |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
853 Also, see the function \\[py-imenu-create-index] for a better |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
854 alternative for finding the index.") |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
855 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
856 ;; These next two variables are used when searching for the Python |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
857 ;; class/definitions. Just saving some time in accessing the |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
858 ;; generic-python-expression, really. |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
859 (defvar py-imenu-generic-regexp nil) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
860 (defvar py-imenu-generic-parens nil) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
861 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
862 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
863 (defun py-imenu-create-index-function () |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
864 "Python interface function for the Imenu package. |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
865 Finds all Python classes and functions/methods. Calls function |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
866 \\[py-imenu-create-index-engine]. See that function for the details |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
867 of how this works." |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
868 (setq py-imenu-generic-regexp (car py-imenu-generic-expression) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
869 py-imenu-generic-parens (if py-imenu-show-method-args-p |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
870 py-imenu-method-arg-parens |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
871 py-imenu-method-no-arg-parens)) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
872 (goto-char (point-min)) |
|
9458
e7d984f266cc
(py-imenu-method-regexp): Fix suggested by Daniel Calvelo to
Barry Warsaw <barry@python.org>
parents:
9457
diff
changeset
|
873 ;; Warning: When the buffer has no classes or functions, this will |
|
e7d984f266cc
(py-imenu-method-regexp): Fix suggested by Daniel Calvelo to
Barry Warsaw <barry@python.org>
parents:
9457
diff
changeset
|
874 ;; return nil, which seems proper according to the Imenu API, but |
|
e7d984f266cc
(py-imenu-method-regexp): Fix suggested by Daniel Calvelo to
Barry Warsaw <barry@python.org>
parents:
9457
diff
changeset
|
875 ;; causes an error in the XEmacs port of Imenu. Sigh. |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
876 (py-imenu-create-index-engine nil)) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
877 |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
878 (defun py-imenu-create-index-engine (&optional start-indent) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
879 "Function for finding Imenu definitions in Python. |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
880 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
881 Finds all definitions (classes, methods, or functions) in a Python |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
882 file for the Imenu package. |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
883 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
884 Returns a possibly nested alist of the form |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
885 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
886 (INDEX-NAME . INDEX-POSITION) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
887 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
888 The second element of the alist may be an alist, producing a nested |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
889 list as in |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
890 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
891 (INDEX-NAME . INDEX-ALIST) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
892 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
893 This function should not be called directly, as it calls itself |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
894 recursively and requires some setup. Rather this is the engine for |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
895 the function \\[py-imenu-create-index-function]. |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
896 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
897 It works recursively by looking for all definitions at the current |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
898 indention level. When it finds one, it adds it to the alist. If it |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
899 finds a definition at a greater indentation level, it removes the |
|
8370
f2b0859fece3
#Documentation and comment typos patch given by Michael Ernst. More
Barry Warsaw <barry@python.org>
parents:
8070
diff
changeset
|
900 previous definition from the alist. In its place it adds all |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
901 definitions found at the next indentation level. When it finds a |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
902 definition that is less indented then the current level, it returns |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
903 the alist it has created thus far. |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
904 |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
905 The optional argument START-INDENT indicates the starting indentation |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
906 at which to continue looking for Python classes, methods, or |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
907 functions. If this is not supplied, the function uses the indentation |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
908 of the first definition found." |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
909 (let (index-alist |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
910 sub-method-alist |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
911 looking-p |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
912 def-name prev-name |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
913 cur-indent def-pos |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
914 (class-paren (first py-imenu-generic-parens)) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
915 (def-paren (second py-imenu-generic-parens))) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
916 (setq looking-p |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
917 (re-search-forward py-imenu-generic-regexp (point-max) t)) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
918 (while looking-p |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
919 (save-excursion |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
920 ;; used to set def-name to this value but generic-extract-name |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
921 ;; is new to imenu-1.14. this way it still works with |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
922 ;; imenu-1.11 |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
923 ;;(imenu--generic-extract-name py-imenu-generic-parens)) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
924 (let ((cur-paren (if (match-beginning class-paren) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
925 class-paren def-paren))) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
926 (setq def-name |
|
6670
8e3ee3577d4e
(python-mode): Make imenu-create-index-function buffer local.
Barry Warsaw <barry@python.org>
parents:
6669
diff
changeset
|
927 (buffer-substring-no-properties (match-beginning cur-paren) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
928 (match-end cur-paren)))) |
|
9005
ec01fe9c2841
(imenu-example--create-python-index-engine): Fix nesting breakage when
Barry Warsaw <barry@python.org>
parents:
8925
diff
changeset
|
929 (save-match-data |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
930 (py-beginning-of-def-or-class 'either)) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
931 (beginning-of-line) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
932 (setq cur-indent (current-indentation))) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
933 ;; HACK: want to go to the next correct definition location. We |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
934 ;; explicitly list them here but it would be better to have them |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
935 ;; in a list. |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
936 (setq def-pos |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
937 (or (match-beginning class-paren) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
938 (match-beginning def-paren))) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
939 ;; if we don't have a starting indent level, take this one |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
940 (or start-indent |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
941 (setq start-indent cur-indent)) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
942 ;; if we don't have class name yet, take this one |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
943 (or prev-name |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
944 (setq prev-name def-name)) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
945 ;; what level is the next definition on? must be same, deeper |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
946 ;; or shallower indentation |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
947 (cond |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
948 ;; at the same indent level, add it to the list... |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
949 ((= start-indent cur-indent) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
950 (push (cons def-name def-pos) index-alist)) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
951 ;; deeper indented expression, recurse |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
952 ((< start-indent cur-indent) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
953 ;; the point is currently on the expression we're supposed to |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
954 ;; start on, so go back to the last expression. The recursive |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
955 ;; call will find this place again and add it to the correct |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
956 ;; list |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
957 (re-search-backward py-imenu-generic-regexp (point-min) 'move) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
958 (setq sub-method-alist (py-imenu-create-index-engine cur-indent)) |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
959 (if sub-method-alist |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
960 ;; we put the last element on the index-alist on the start |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
961 ;; of the submethod alist so the user can still get to it. |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
962 (let ((save-elmt (pop index-alist))) |
|
6670
8e3ee3577d4e
(python-mode): Make imenu-create-index-function buffer local.
Barry Warsaw <barry@python.org>
parents:
6669
diff
changeset
|
963 (push (cons prev-name |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
964 (cons save-elmt sub-method-alist)) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
965 index-alist)))) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
966 ;; found less indented expression, we're done. |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
967 (t |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
968 (setq looking-p nil) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
969 (re-search-backward py-imenu-generic-regexp (point-min) t))) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
970 ;; end-cond |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
971 (setq prev-name def-name) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
972 (and looking-p |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
973 (setq looking-p |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
974 (re-search-forward py-imenu-generic-regexp |
|
3924
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
975 (point-max) 'move)))) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
976 (nreverse index-alist))) |
|
063d86741410
(imenu-example--python-show-method-args-p,
Barry Warsaw <barry@python.org>
parents:
3923
diff
changeset
|
977 |
|
23277
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
978 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
979 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
980 (defun py-choose-shell-by-shebang () |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
981 "Choose CPython or JPython mode by looking at #! on the first line. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
982 Returns the appropriate mode function. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
983 Used by `py-choose-shell', and similar to but distinct from |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
984 `set-auto-mode', though it uses `auto-mode-interpreter-regexp' (if available)." |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
985 ;; look for an interpreter specified in the first line |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
986 ;; similar to set-auto-mode (files.el) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
987 (let* ((re (if (boundp 'auto-mode-interpreter-regexp) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
988 auto-mode-interpreter-regexp |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
989 ;; stolen from Emacs 21.2 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
990 "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)")) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
991 (interpreter (save-excursion |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
992 (goto-char (point-min)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
993 (if (looking-at re) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
994 (match-string 2) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
995 ""))) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
996 elt) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
997 ;; Map interpreter name to a mode. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
998 (setq elt (assoc (file-name-nondirectory interpreter) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
999 py-shell-alist)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1000 (and elt (caddr elt)))) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1001 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1002 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1003 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1004 (defun py-choose-shell-by-import () |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1005 "Choose CPython or JPython mode based imports. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1006 If a file imports any packages in `py-jpython-packages', within |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1007 `py-import-check-point-max' characters from the start of the file, |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1008 return `jpython', otherwise return nil." |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1009 (let (mode) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1010 (save-excursion |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1011 (goto-char (point-min)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1012 (while (and (not mode) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1013 (search-forward-regexp |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1014 "^\\(\\(from\\)\\|\\(import\\)\\) \\([^ \t\n.]+\\)" |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1015 py-import-check-point-max t)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1016 (setq mode (and (member (match-string 4) py-jpython-packages) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1017 'jpython |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1018 )))) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1019 mode)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1020 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1021 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1022 (defun py-choose-shell () |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1023 "Choose CPython or JPython mode. Returns the appropriate mode function. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1024 This does the following: |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1025 - look for an interpreter with `py-choose-shell-by-shebang' |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1026 - examine imports using `py-choose-shell-by-import' |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1027 - default to the variable `py-default-interpreter'" |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1028 (interactive) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1029 (or (py-choose-shell-by-shebang) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1030 (py-choose-shell-by-import) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1031 py-default-interpreter |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1032 ; 'cpython ;; don't use to py-default-interpreter, because default |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1033 ; ;; is only way to choose CPython |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1034 )) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1035 |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
1036 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1037 ;;;###autoload |
| 2018 | 1038 (defun python-mode () |
| 1039 "Major mode for editing Python files. | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1040 To submit a problem report, enter `\\[py-submit-bug-report]' from a |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1041 `python-mode' buffer. Do `\\[py-describe-mode]' for detailed |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1042 documentation. To see what version of `python-mode' you are running, |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1043 enter `\\[py-version]'. |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1044 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1045 This mode knows about Python indentation, tokens, comments and |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1046 continuation lines. Paragraphs are separated by blank lines only. |
| 2018 | 1047 |
| 1048 COMMANDS | |
| 1049 \\{py-mode-map} | |
| 1050 VARIABLES | |
| 1051 | |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
1052 py-indent-offset\t\tindentation increment |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1053 py-block-comment-prefix\t\tcomment string used by `comment-region' |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
1054 py-python-command\t\tshell command to invoke Python interpreter |
|
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
1055 py-temp-directory\t\tdirectory used for temp files (if needed) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1056 py-beep-if-tab-change\t\tring the bell if `tab-width' is changed" |
| 2018 | 1057 (interactive) |
|
4192
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1058 ;; set up local variables |
| 2018 | 1059 (kill-all-local-variables) |
|
4192
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1060 (make-local-variable 'font-lock-defaults) |
|
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1061 (make-local-variable 'paragraph-separate) |
|
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1062 (make-local-variable 'paragraph-start) |
|
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1063 (make-local-variable 'require-final-newline) |
|
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1064 (make-local-variable 'comment-start) |
|
4763
38689aceae7b
(python-mode): added comment-end definitions.
Barry Warsaw <barry@python.org>
parents:
4508
diff
changeset
|
1065 (make-local-variable 'comment-end) |
|
4192
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1066 (make-local-variable 'comment-start-skip) |
|
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1067 (make-local-variable 'comment-column) |
|
8628
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1068 (make-local-variable 'comment-indent-function) |
|
4192
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1069 (make-local-variable 'indent-region-function) |
|
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1070 (make-local-variable 'indent-line-function) |
|
4195
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
1071 (make-local-variable 'add-log-current-defun-function) |
|
4192
d23f78730e00
(python-mode): font-lock-defaults must be make-local-variable'd
Barry Warsaw <barry@python.org>
parents:
4189
diff
changeset
|
1072 ;; |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1073 (set-syntax-table py-mode-syntax-table) |
|
8628
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1074 (setq major-mode 'python-mode |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1075 mode-name "Python" |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1076 local-abbrev-table python-mode-abbrev-table |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1077 font-lock-defaults '(python-font-lock-keywords) |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1078 paragraph-separate "^[ \t]*$" |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1079 paragraph-start "^[ \t]*$" |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1080 require-final-newline t |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1081 comment-start "# " |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1082 comment-end "" |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1083 comment-start-skip "# *" |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1084 comment-column 40 |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1085 comment-indent-function 'py-comment-indent-function |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1086 indent-region-function 'py-indent-region |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
1087 indent-line-function 'py-indent-line |
|
4195
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
1088 ;; tell add-log.el how to find the current function/method/variable |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
1089 add-log-current-defun-function 'py-current-defun |
|
4188
c796ae115783
(python-mode): font-lock-defaults necessary for Emacs 19, but doesn't
Barry Warsaw <barry@python.org>
parents:
4187
diff
changeset
|
1090 ) |
| 2018 | 1091 (use-local-map py-mode-map) |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
1092 ;; add the menu |
|
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
1093 (if py-menu |
|
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
1094 (easy-menu-add py-menu)) |
|
3094
5a1fbd21fc2a
(python-mode): comment-multi-line must be nil for Emacs 19
Barry Warsaw <barry@python.org>
parents:
3093
diff
changeset
|
1095 ;; Emacs 19 requires this |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
1096 (if (boundp 'comment-multi-line) |
|
3094
5a1fbd21fc2a
(python-mode): comment-multi-line must be nil for Emacs 19
Barry Warsaw <barry@python.org>
parents:
3093
diff
changeset
|
1097 (setq comment-multi-line nil)) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
1098 ;; Install Imenu if available |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1099 (when (py-safe (require 'imenu)) |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
1100 (setq imenu-create-index-function #'py-imenu-create-index-function) |
|
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
1101 (setq imenu-generic-expression py-imenu-generic-expression) |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1102 (if (fboundp 'imenu-add-to-menubar) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1103 (imenu-add-to-menubar (format "%s-%s" "IM" mode-name))) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1104 ) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1105 ;; Run the mode hook. Note that py-mode-hook is deprecated. |
| 2018 | 1106 (if python-mode-hook |
| 1107 (run-hooks 'python-mode-hook) | |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1108 (run-hooks 'py-mode-hook)) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1109 ;; Now do the automagical guessing |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1110 (if py-smart-indentation |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1111 (let ((offset py-indent-offset)) |
|
8370
f2b0859fece3
#Documentation and comment typos patch given by Michael Ernst. More
Barry Warsaw <barry@python.org>
parents:
8070
diff
changeset
|
1112 ;; It's okay if this fails to guess a good value |
|
7672
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1113 (if (and (py-safe (py-guess-indent-offset)) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1114 (<= py-indent-offset 8) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1115 (>= py-indent-offset 2)) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1116 (setq offset py-indent-offset)) |
|
1fb868f25459
(py-smart-indentation): New variable which controls the automagic
Barry Warsaw <barry@python.org>
parents:
7481
diff
changeset
|
1117 (setq py-indent-offset offset) |
|
7699
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
1118 ;; Only turn indent-tabs-mode off if tab-width != |
|
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
1119 ;; py-indent-offset. Never turn it on, because the user must |
|
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
1120 ;; have explicitly turned it off. |
|
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
1121 (if (/= tab-width py-indent-offset) |
|
96b7c1323d30
(py-smart-indentation): Updated docstring for new policy.
Barry Warsaw <barry@python.org>
parents:
7676
diff
changeset
|
1122 (setq indent-tabs-mode nil)) |
|
11146
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1123 )) |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1124 ;; Set the default shell if not already set |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1125 (when (null py-which-shell) |
|
23277
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1126 (py-toggle-shells (py-choose-shell)))) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1127 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1128 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1129 (defun jpython-mode () |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1130 "Major mode for editing JPython/Jython files. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1131 This is a simple wrapper around `python-mode'. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1132 It runs `jpython-mode-hook' then calls `python-mode.' |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1133 It is added to `interpreter-mode-alist' and `py-choose-shell'. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1134 " |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1135 (interactive) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1136 (python-mode) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1137 (py-toggle-shells 'jpython) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1138 (when jpython-mode-hook |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1139 (run-hooks 'jpython-mode-hook))) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1140 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1141 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1142 ;; It's handy to add recognition of Python files to the |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1143 ;; interpreter-mode-alist and to auto-mode-alist. With the former, we |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1144 ;; can specify different `derived-modes' based on the #! line, but |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1145 ;; with the latter, we can't. So we just won't add them if they're |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1146 ;; already added. |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1147 (let ((modes '(("jpython" . jpython-mode) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1148 ("jython" . jpython-mode) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1149 ("python" . python-mode)))) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1150 (while modes |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1151 (when (not (assoc (car modes) interpreter-mode-alist)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1152 (push modes interpreter-mode-alist)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1153 (setq modes (cdr modes)))) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1154 |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1155 (when (not (or (rassq 'python-mode auto-mode-alist) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1156 (rassq 'jpython-mode auto-mode-alist))) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1157 (push '("\\.py$" . python-mode) auto-mode-alist)) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1158 |
| 2018 | 1159 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1160 |
|
2535
875173f3f31c
(py-electric-colon): new command
Barry Warsaw <barry@python.org>
parents:
2524
diff
changeset
|
1161 ;; electric characters |
|
2547
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1162 (defun py-outdent-p () |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1163 "Returns non-nil if the current line should dedent one level." |
|
2547
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1164 (save-excursion |
|
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1165 (and (progn (back-to-indentation) |
|
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1166 (looking-at py-outdent-re)) |
|
9827
ef97b4f6d187
(py-outdent-p): Short circuit infloop for illegal construct
Barry Warsaw <barry@python.org>
parents:
9639
diff
changeset
|
1167 ;; short circuit infloop on illegal construct |
|
ef97b4f6d187
(py-outdent-p): Short circuit infloop for illegal construct
Barry Warsaw <barry@python.org>
parents:
9639
diff
changeset
|
1168 (not (bobp)) |
|
7152
d39a805852c2
(py-outdent-p): When looking at the previous line, watch out for
Barry Warsaw <barry@python.org>
parents:
7151
diff
changeset
|
1169 (progn (forward-line -1) |
|
d39a805852c2
(py-outdent-p): When looking at the previous line, watch out for
Barry Warsaw <barry@python.org>
parents:
7151
diff
changeset
|
1170 (py-goto-initial-line) |
|
d39a805852c2
(py-outdent-p): When looking at the previous line, watch out for
Barry Warsaw <barry@python.org>
parents:
7151
diff
changeset
|
1171 (back-to-indentation) |
|
2547
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1172 (while (or (looking-at py-blank-or-comment-re) |
|
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1173 (bobp)) |
|
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1174 (backward-to-indentation 1)) |
|
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1175 (not (looking-at py-no-outdent-re))) |
|
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1176 ))) |
|
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1177 |
|
2535
875173f3f31c
(py-electric-colon): new command
Barry Warsaw <barry@python.org>
parents:
2524
diff
changeset
|
1178 (defun py-electric-colon (arg) |
|
875173f3f31c
(py-electric-colon): new command
Barry Warsaw <barry@python.org>
parents:
2524
diff
changeset
|
1179 "Insert a colon. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1180 In certain cases the line is dedented appropriately. If a numeric |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1181 argument ARG is provided, that many colons are inserted |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1182 non-electrically. Electric behavior is inhibited inside a string or |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1183 comment." |
|
2535
875173f3f31c
(py-electric-colon): new command
Barry Warsaw <barry@python.org>
parents:
2524
diff
changeset
|
1184 (interactive "P") |
|
875173f3f31c
(py-electric-colon): new command
Barry Warsaw <barry@python.org>
parents:
2524
diff
changeset
|
1185 (self-insert-command (prefix-numeric-value arg)) |
|
3095
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1186 ;; are we in a string or comment? |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1187 (if (save-excursion |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1188 (let ((pps (parse-partial-sexp (save-excursion |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
1189 (py-beginning-of-def-or-class) |
|
3095
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1190 (point)) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1191 (point)))) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1192 (not (or (nth 3 pps) (nth 4 pps))))) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1193 (save-excursion |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1194 (let ((here (point)) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1195 (outdent 0) |
|
4479
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1196 (indent (py-compute-indentation t))) |
|
3095
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1197 (if (and (not arg) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1198 (py-outdent-p) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1199 (= indent (save-excursion |
|
3934
f9ad98b58472
(py-electric-colon): Use (py-next-statement -1) instead of
Barry Warsaw <barry@python.org>
parents:
3926
diff
changeset
|
1200 (py-next-statement -1) |
|
4479
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1201 (py-compute-indentation t))) |
|
3095
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1202 ) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1203 (setq outdent py-indent-offset)) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1204 ;; Don't indent, only dedent. This assumes that any lines |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1205 ;; that are already dedented relative to |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1206 ;; py-compute-indentation were put there on purpose. It's |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1207 ;; highly annoying to have `:' indent for you. Use TAB, C-c |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1208 ;; C-l or C-c C-r to adjust. TBD: Is there a better way to |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1209 ;; determine this??? |
|
3095
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1210 (if (< (current-indentation) indent) nil |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1211 (goto-char here) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1212 (beginning-of-line) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1213 (delete-horizontal-space) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1214 (indent-to (- indent outdent)) |
|
c1d77d74fe35
(py-electric-colon): turn off electric behavior inside strings and
Barry Warsaw <barry@python.org>
parents:
3094
diff
changeset
|
1215 ))))) |
|
2535
875173f3f31c
(py-electric-colon): new command
Barry Warsaw <barry@python.org>
parents:
2524
diff
changeset
|
1216 |
|
875173f3f31c
(py-electric-colon): new command
Barry Warsaw <barry@python.org>
parents:
2524
diff
changeset
|
1217 |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1218 ;; Python subprocess utilities and filters |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1219 (defun py-execute-file (proc filename) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1220 "Send to Python interpreter process PROC \"execfile('FILENAME')\". |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1221 Make that process's buffer visible and force display. Also make |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1222 comint believe the user typed this string so that |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1223 `kill-output-from-shell' does The Right Thing." |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1224 (let ((curbuf (current-buffer)) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1225 (procbuf (process-buffer proc)) |
|
9025
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1226 ; (comint-scroll-to-bottom-on-output t) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1227 (msg (format "## working on region in file %s...\n" filename)) |
|
9141
881b86398c20
(py-execute-file, py-execute-import-or-reload): Use a Python `raw'
Barry Warsaw <barry@python.org>
parents:
9136
diff
changeset
|
1228 (cmd (format "execfile(r'%s')\n" filename))) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1229 (unwind-protect |
|
9025
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1230 (save-excursion |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1231 (set-buffer procbuf) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1232 (goto-char (point-max)) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1233 (move-marker (process-mark proc) (point)) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1234 (funcall (process-filter proc) proc msg)) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1235 (set-buffer curbuf)) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1236 (process-send-string proc cmd))) |
| 2018 | 1237 |
|
9025
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1238 (defun py-comint-output-filter-function (string) |
|
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1239 "Watch output for Python prompt and exec next file waiting in queue. |
|
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1240 This function is appropriate for `comint-output-filter-functions'." |
|
9491
a3bcf1b36551
(py-execute-region): Patch by Hunter Kelly so that execution uses the
Barry Warsaw <barry@python.org>
parents:
9458
diff
changeset
|
1241 ;; TBD: this should probably use split-string |
|
23271
803e6a695306
(py-comint-output-filter-function): Add a pop-to-buffer call so you
Barry Warsaw <barry@python.org>
parents:
23270
diff
changeset
|
1242 (pop-to-buffer (current-buffer)) |
|
9144
520583bdf0b0
(py-comint-output-filter-function): Horrible kludgearound for making
Barry Warsaw <barry@python.org>
parents:
9142
diff
changeset
|
1243 (when (and (or (string-equal string ">>> ") |
|
520583bdf0b0
(py-comint-output-filter-function): Horrible kludgearound for making
Barry Warsaw <barry@python.org>
parents:
9142
diff
changeset
|
1244 (and (>= (length string) 5) |
|
520583bdf0b0
(py-comint-output-filter-function): Horrible kludgearound for making
Barry Warsaw <barry@python.org>
parents:
9142
diff
changeset
|
1245 (string-equal (substring string -5) "\n>>> "))) |
|
9025
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1246 py-file-queue) |
|
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1247 (py-safe (delete-file (car py-file-queue))) |
|
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1248 (setq py-file-queue (cdr py-file-queue)) |
|
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1249 (if py-file-queue |
|
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1250 (let ((pyproc (get-buffer-process (current-buffer)))) |
|
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1251 (py-execute-file pyproc (car py-file-queue)))) |
|
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1252 )) |
| 2018 | 1253 |
| 17416 | 1254 (defun py-pdbtrack-overlay-arrow (activation) |
| 1255 "Activate or de arrow at beginning-of-line in current buffer." | |
| 1256 ;; This was derived/simplified from edebug-overlay-arrow | |
| 1257 (cond (activation | |
| 1258 (setq overlay-arrow-position (make-marker)) | |
| 1259 (setq overlay-arrow-string "=>") | |
| 1260 (set-marker overlay-arrow-position (py-point 'bol) (current-buffer)) | |
| 1261 (setq py-pdbtrack-is-tracking-p t)) | |
| 1262 (overlay-arrow-position | |
| 1263 (setq overlay-arrow-position nil) | |
| 1264 (setq py-pdbtrack-is-tracking-p nil)) | |
| 1265 )) | |
| 1266 | |
| 1267 (defun py-pdbtrack-track-stack-file (text) | |
| 1268 "Show the file indicated by the pdb stack entry line, in a separate window. | |
| 1269 | |
| 1270 Activity is disabled if the buffer-local variable | |
| 1271 `py-pdbtrack-do-tracking-p' is nil. | |
| 1272 | |
| 1273 We depend on the pdb input prompt matching `py-pdbtrack-input-prompt' | |
| 1274 at the beginning of the line." | |
| 1275 ;; Instead of trying to piece things together from partial text | |
| 1276 ;; (which can be almost useless depending on Emacs version), we | |
| 1277 ;; monitor to the point where we have the next pdb prompt, and then | |
| 1278 ;; check all text from comint-last-input-end to process-mark. | |
| 1279 ;; | |
| 1280 ;; KLM: It might be nice to provide an optional override, so this | |
| 1281 ;; routine could be fed debugger output strings as the text | |
| 1282 ;; argument, for deliberate application elsewhere. | |
| 1283 ;; | |
| 1284 ;; KLM: We're very conservative about clearing the overlay arrow, to | |
| 1285 ;; minimize residue. This means, for instance, that executing other | |
| 1286 ;; pdb commands wipes out the highlight. | |
| 1287 (let* ((origbuf (current-buffer)) | |
| 1288 (currproc (get-buffer-process origbuf))) | |
| 1289 (if (not (and currproc py-pdbtrack-do-tracking-p)) | |
| 1290 (py-pdbtrack-overlay-arrow nil) | |
| 1291 (let* (;(origdir default-directory) | |
| 1292 (procmark (process-mark currproc)) | |
| 1293 (block (buffer-substring (max comint-last-input-end | |
| 1294 (- procmark | |
| 1295 py-pdbtrack-track-range)) | |
| 1296 procmark)) | |
| 1297 fname lineno) | |
| 1298 (if (not (string-match (concat py-pdbtrack-input-prompt "$") block)) | |
| 1299 (py-pdbtrack-overlay-arrow nil) | |
| 1300 (if (not (string-match | |
| 1301 (concat ".*" py-pdbtrack-stack-entry-regexp ".*") | |
| 1302 block)) | |
| 1303 (py-pdbtrack-overlay-arrow nil) | |
| 1304 (setq fname (match-string 1 block) | |
| 1305 lineno (match-string 2 block)) | |
| 1306 (if (file-exists-p fname) | |
| 1307 (progn | |
| 1308 (find-file-other-window fname) | |
| 1309 (goto-line (string-to-int lineno)) | |
|
17422
f3f9641743a0
(py-pdbtrack-track-stack-file): On Ken's suggestion, add "pdbtrack:"
Barry Warsaw <barry@python.org>
parents:
17416
diff
changeset
|
1310 (message "pdbtrack: line %s, file %s" lineno fname) |
| 17416 | 1311 (py-pdbtrack-overlay-arrow t) |
| 1312 (pop-to-buffer origbuf t) ) | |
| 1313 (if (= (elt fname 0) ?\<) | |
|
17422
f3f9641743a0
(py-pdbtrack-track-stack-file): On Ken's suggestion, add "pdbtrack:"
Barry Warsaw <barry@python.org>
parents:
17416
diff
changeset
|
1314 (message "pdbtrack: (Non-file source: '%s')" fname) |
|
f3f9641743a0
(py-pdbtrack-track-stack-file): On Ken's suggestion, add "pdbtrack:"
Barry Warsaw <barry@python.org>
parents:
17416
diff
changeset
|
1315 (message "pdbtrack: File not found: %s" fname)) |
| 17416 | 1316 ))))))) |
| 1317 | |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1318 (defun py-postprocess-output-buffer (buf) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1319 "Highlight exceptions found in BUF. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1320 If an exception occurred return t, otherwise return nil. BUF must exist." |
|
7743
269a327d6305
(py-postprocess-output-buffer): Return t if an exception was found,
Barry Warsaw <barry@python.org>
parents:
7742
diff
changeset
|
1321 (let (line file bol err-p) |
|
6731
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
1322 (save-excursion |
|
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
1323 (set-buffer buf) |
|
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
1324 (beginning-of-buffer) |
|
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
1325 (while (re-search-forward py-traceback-line-re nil t) |
|
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
1326 (setq file (match-string 1) |
|
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
1327 line (string-to-int (match-string 2)) |
|
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
1328 bol (py-point 'bol)) |
|
7743
269a327d6305
(py-postprocess-output-buffer): Return t if an exception was found,
Barry Warsaw <barry@python.org>
parents:
7742
diff
changeset
|
1329 (py-highlight-line bol (py-point 'eol) file line))) |
|
269a327d6305
(py-postprocess-output-buffer): Return t if an exception was found,
Barry Warsaw <barry@python.org>
parents:
7742
diff
changeset
|
1330 (when (and py-jump-on-exception line) |
|
269a327d6305
(py-postprocess-output-buffer): Return t if an exception was found,
Barry Warsaw <barry@python.org>
parents:
7742
diff
changeset
|
1331 (beep) |
|
269a327d6305
(py-postprocess-output-buffer): Return t if an exception was found,
Barry Warsaw <barry@python.org>
parents:
7742
diff
changeset
|
1332 (py-jump-to-exception file line) |
|
269a327d6305
(py-postprocess-output-buffer): Return t if an exception was found,
Barry Warsaw <barry@python.org>
parents:
7742
diff
changeset
|
1333 (setq err-p t)) |
|
269a327d6305
(py-postprocess-output-buffer): Return t if an exception was found,
Barry Warsaw <barry@python.org>
parents:
7742
diff
changeset
|
1334 err-p)) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1335 |
|
6731
21656204dd4f
(py-jump-on-exception): Variable which if t, means that if an
Barry Warsaw <barry@python.org>
parents:
6730
diff
changeset
|
1336 |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1337 |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1338 ;;; Subprocess commands |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1339 |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1340 ;; only used when (memq 'broken-temp-names py-emacs-features) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1341 (defvar py-serial-number 0) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1342 (defvar py-exception-buffer nil) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1343 (defconst py-output-buffer "*Python Output*") |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1344 (make-variable-buffer-local 'py-output-buffer) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1345 |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1346 ;; for toggling between CPython and JPython |
|
10207
29d1d3b08ca7
(py-default-interpreter): New variable which selects whether CPython
Barry Warsaw <barry@python.org>
parents:
9927
diff
changeset
|
1347 (defvar py-which-shell nil) |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1348 (defvar py-which-args py-python-command-args) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1349 (defvar py-which-bufname "Python") |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1350 (make-variable-buffer-local 'py-which-shell) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1351 (make-variable-buffer-local 'py-which-args) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1352 (make-variable-buffer-local 'py-which-bufname) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1353 |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1354 (defun py-toggle-shells (arg) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1355 "Toggles between the CPython and JPython shells. |
|
11146
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1356 |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1357 With positive argument ARG (interactively \\[universal-argument]), |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1358 uses the CPython shell, with negative ARG uses the JPython shell, and |
|
11146
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1359 with a zero argument, toggles the shell. |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1360 |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1361 Programmatically, ARG can also be one of the symbols `cpython' or |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1362 `jpython', equivalent to positive arg and negative arg respectively." |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1363 (interactive "P") |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1364 ;; default is to toggle |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1365 (if (null arg) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1366 (setq arg 0)) |
|
11146
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1367 ;; preprocess arg |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1368 (cond |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1369 ((equal arg 0) |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1370 ;; toggle |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1371 (if (string-equal py-which-bufname "Python") |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1372 (setq arg -1) |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1373 (setq arg 1))) |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1374 ((equal arg 'cpython) (setq arg 1)) |
|
f62e465c4d01
(python-mode): Set which interpreter (CPython or JPython) to use the
Barry Warsaw <barry@python.org>
parents:
11144
diff
changeset
|
1375 ((equal arg 'jpython) (setq arg -1))) |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1376 (let (msg) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1377 (cond |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1378 ((< 0 arg) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1379 ;; set to CPython |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1380 (setq py-which-shell py-python-command |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1381 py-which-args py-python-command-args |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1382 py-which-bufname "Python" |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1383 msg "CPython" |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1384 mode-name "Python")) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1385 ((> 0 arg) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1386 (setq py-which-shell py-jpython-command |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1387 py-which-args py-jpython-command-args |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1388 py-which-bufname "JPython" |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1389 msg "JPython" |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1390 mode-name "JPython")) |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1391 ) |
|
7952
72d9961540d8
(py-toggle-shells): Added a message in the minibuf.
Barry Warsaw <barry@python.org>
parents:
7950
diff
changeset
|
1392 (message "Using the %s shell" msg) |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1393 (setq py-output-buffer (format "*%s Output*" py-which-bufname)))) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1394 |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1395 ;;;###autoload |
|
10208
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1396 (defun py-shell (&optional argprompt) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1397 "Start an interactive Python interpreter in another window. |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1398 This is like Shell mode, except that Python is running in the window |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1399 instead of a shell. See the `Interactive Shell' and `Shell Mode' |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1400 sections of the Emacs manual for details, especially for the key |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1401 bindings active in the `*Python*' buffer. |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1402 |
|
10208
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1403 With optional \\[universal-argument], the user is prompted for the |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1404 flags to pass to the Python interpreter. This has no effect when this |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1405 command is used to switch to an existing process, only when a new |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1406 process is started. If you use this, you will probably want to ensure |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1407 that the current arguments are retained (they will be included in the |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1408 prompt). This argument is ignored when this function is called |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1409 programmatically, or when running in Emacs 19.34 or older. |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1410 |
|
7950
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1411 Note: You can toggle between using the CPython interpreter and the |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1412 JPython interpreter by hitting \\[py-toggle-shells]. This toggles |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1413 buffer local variables which control whether all your subshell |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1414 interactions happen to the `*JPython*' or `*Python*' buffers (the |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1415 latter is the name used for the CPython buffer). |
|
9cbcb5931d80
Quick and extremely dirty hacks to toggle between using CPython and
Barry Warsaw <barry@python.org>
parents:
7878
diff
changeset
|
1416 |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1417 Warning: Don't use an interactive Python if you change sys.ps1 or |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1418 sys.ps2 from their default values, or if you're running code that |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1419 prints `>>> ' or `... ' at the start of a line. `python-mode' can't |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1420 distinguish your output from Python's output, and assumes that `>>> ' |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1421 at the start of a line is a prompt from Python. Similarly, the Emacs |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1422 Shell mode code assumes that both `>>> ' and `... ' at the start of a |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1423 line are Python prompts. Bad things can happen if you fool either |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1424 mode. |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1425 |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1426 Warning: If you do any editing *in* the process buffer *while* the |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1427 buffer is accepting output from Python, do NOT attempt to `undo' the |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1428 changes. Some of the output (nowhere near the parts you changed!) may |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1429 be lost if you do. This appears to be an Emacs bug, an unfortunate |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1430 interaction between undo and process filters; the same problem exists in |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1431 non-Python process buffers using the default (Emacs-supplied) process |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1432 filter." |
|
10208
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1433 (interactive "P") |
|
11186
24c5bc6bfcaa
(py-shell): Set the default shell if not set yet. It's sometimes
Barry Warsaw <barry@python.org>
parents:
11147
diff
changeset
|
1434 ;; Set the default shell if not already set |
|
24c5bc6bfcaa
(py-shell): Set the default shell if not set yet. It's sometimes
Barry Warsaw <barry@python.org>
parents:
11147
diff
changeset
|
1435 (when (null py-which-shell) |
|
24c5bc6bfcaa
(py-shell): Set the default shell if not set yet. It's sometimes
Barry Warsaw <barry@python.org>
parents:
11147
diff
changeset
|
1436 (py-toggle-shells py-default-interpreter)) |
|
10208
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1437 (let ((args py-which-args)) |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1438 (when (and argprompt |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1439 (interactive-p) |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1440 (fboundp 'split-string)) |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1441 ;; TBD: Perhaps force "-i" in the final list? |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1442 (setq args (split-string |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1443 (read-string (concat py-which-bufname |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1444 " arguments: ") |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1445 (concat |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1446 (mapconcat 'identity py-which-args " ") " ") |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1447 )))) |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1448 (switch-to-buffer-other-window |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1449 (apply 'make-comint py-which-bufname py-which-shell nil args)) |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1450 (make-local-variable 'comint-prompt-regexp) |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1451 (setq comint-prompt-regexp "^>>> \\|^[.][.][.] \\|^(pdb) ") |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1452 (add-hook 'comint-output-filter-functions |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1453 'py-comint-output-filter-function) |
| 17416 | 1454 ;; pdbtrack |
| 1455 (add-hook 'comint-output-filter-functions 'py-pdbtrack-track-stack-file) | |
| 1456 (setq py-pdbtrack-do-tracking-p t) | |
|
10208
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1457 (set-syntax-table py-mode-syntax-table) |
|
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1458 (use-local-map py-shell-map) |
|
23270
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
1459 (run-hooks 'py-shell-hook) |
|
10208
a86fe1f3cf4e
(py-shell): Added optional argprompt, which will prompt for additional
Barry Warsaw <barry@python.org>
parents:
10207
diff
changeset
|
1460 )) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1461 |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1462 (defun py-clear-queue () |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1463 "Clear the queue of temporary files waiting to execute." |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1464 (interactive) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1465 (let ((n (length py-file-queue))) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1466 (mapcar 'delete-file py-file-queue) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1467 (setq py-file-queue nil) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1468 (message "%d pending files de-queued." n))) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1469 |
| 8378 | 1470 |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1471 (defun py-execute-region (start end &optional async) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1472 "Execute the region in a Python interpreter. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1473 |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1474 The region is first copied into a temporary file (in the directory |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1475 `py-temp-directory'). If there is no Python interpreter shell |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1476 running, this file is executed synchronously using |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1477 `shell-command-on-region'. If the program is long running, use |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1478 \\[universal-argument] to run the command asynchronously in its own |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1479 buffer. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1480 |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1481 When this function is used programmatically, arguments START and END |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1482 specify the region to execute, and optional third argument ASYNC, if |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1483 non-nil, specifies to run the command asynchronously in its own |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1484 buffer. |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1485 |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1486 If the Python interpreter shell is running, the region is execfile()'d |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1487 in that shell. If you try to execute regions too quickly, |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1488 `python-mode' will queue them up and execute them one at a time when |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1489 it sees a `>>> ' prompt from Python. Each time this happens, the |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1490 process buffer is popped into a window (if it's not already in some |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1491 window) so you can see it, and a comment of the form |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1492 |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1493 \t## working on region in file <name>... |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1494 |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1495 is inserted at the end. See also the command `py-clear-queue'." |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1496 (interactive "r\nP") |
|
23275
d47290dd2d57
(py-execute-region): Alexander Schmolck points out that leading
Barry Warsaw <barry@python.org>
parents:
23271
diff
changeset
|
1497 ;; Skip ahead to the first non-blank line |
|
d47290dd2d57
(py-execute-region): Alexander Schmolck points out that leading
Barry Warsaw <barry@python.org>
parents:
23271
diff
changeset
|
1498 (goto-char start) |
|
d47290dd2d57
(py-execute-region): Alexander Schmolck points out that leading
Barry Warsaw <barry@python.org>
parents:
23271
diff
changeset
|
1499 (beginning-of-line) |
|
d47290dd2d57
(py-execute-region): Alexander Schmolck points out that leading
Barry Warsaw <barry@python.org>
parents:
23271
diff
changeset
|
1500 (while (and (looking-at "\\s *$") |
|
d47290dd2d57
(py-execute-region): Alexander Schmolck points out that leading
Barry Warsaw <barry@python.org>
parents:
23271
diff
changeset
|
1501 (< (point) end)) |
|
d47290dd2d57
(py-execute-region): Alexander Schmolck points out that leading
Barry Warsaw <barry@python.org>
parents:
23271
diff
changeset
|
1502 (forward-line 1)) |
|
d47290dd2d57
(py-execute-region): Alexander Schmolck points out that leading
Barry Warsaw <barry@python.org>
parents:
23271
diff
changeset
|
1503 (setq start (point)) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1504 (or (< start end) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1505 (error "Region is empty")) |
|
9491
a3bcf1b36551
(py-execute-region): Patch by Hunter Kelly so that execution uses the
Barry Warsaw <barry@python.org>
parents:
9458
diff
changeset
|
1506 (let* ((proc (get-process py-which-bufname)) |
|
6562
53835043528c
(py-emacs-features): Test for working make-temp-name, which is broken
Barry Warsaw <barry@python.org>
parents:
6560
diff
changeset
|
1507 (temp (if (memq 'broken-temp-names py-emacs-features) |
|
8888
9a075a2edb1f
(py-execute-region): When temp-names are broken (Emacs 19.34), a
Barry Warsaw <barry@python.org>
parents:
8629
diff
changeset
|
1508 (let |
|
9a075a2edb1f
(py-execute-region): When temp-names are broken (Emacs 19.34), a
Barry Warsaw <barry@python.org>
parents:
8629
diff
changeset
|
1509 ((sn py-serial-number) |
|
9a075a2edb1f
(py-execute-region): When temp-names are broken (Emacs 19.34), a
Barry Warsaw <barry@python.org>
parents:
8629
diff
changeset
|
1510 (pid (and (fboundp 'emacs-pid) (emacs-pid)))) |
|
9a075a2edb1f
(py-execute-region): When temp-names are broken (Emacs 19.34), a
Barry Warsaw <barry@python.org>
parents:
8629
diff
changeset
|
1511 (setq py-serial-number (1+ py-serial-number)) |
|
9a075a2edb1f
(py-execute-region): When temp-names are broken (Emacs 19.34), a
Barry Warsaw <barry@python.org>
parents:
8629
diff
changeset
|
1512 (if pid |
|
9a075a2edb1f
(py-execute-region): When temp-names are broken (Emacs 19.34), a
Barry Warsaw <barry@python.org>
parents:
8629
diff
changeset
|
1513 (format "python-%d-%d" sn pid) |
|
9a075a2edb1f
(py-execute-region): When temp-names are broken (Emacs 19.34), a
Barry Warsaw <barry@python.org>
parents:
8629
diff
changeset
|
1514 (format "python-%d" sn))) |
|
7481
cca39d719aba
(py-execute-region): Simplified calculation of temporary file name.
Barry Warsaw <barry@python.org>
parents:
7480
diff
changeset
|
1515 (make-temp-name "python-"))) |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
1516 (file (concat (expand-file-name temp py-temp-directory) ".py")) |
|
12736
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1517 (cur (current-buffer)) |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
1518 (buf (get-buffer-create file)) |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
1519 shell) |
|
12736
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1520 ;; Write the contents of the buffer, watching out for indented regions. |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1521 (save-excursion |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1522 (goto-char start) |
|
12994
01ce89fc745f
(py-execute-region): Make sure the new temporary buffer is current for
Barry Warsaw <barry@python.org>
parents:
12736
diff
changeset
|
1523 (let ((needs-if (/= (py-point 'bol) (py-point 'boi)))) |
|
12736
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1524 (set-buffer buf) |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
1525 (python-mode) |
|
12994
01ce89fc745f
(py-execute-region): Make sure the new temporary buffer is current for
Barry Warsaw <barry@python.org>
parents:
12736
diff
changeset
|
1526 (when needs-if |
|
01ce89fc745f
(py-execute-region): Make sure the new temporary buffer is current for
Barry Warsaw <barry@python.org>
parents:
12736
diff
changeset
|
1527 (insert "if 1:\n")) |
|
23223
f5aeeaaf0397
(py-execute-region): If the line at the beginning of the region is a
Barry Warsaw <barry@python.org>
parents:
23222
diff
changeset
|
1528 (insert-buffer-substring cur start end) |
|
f5aeeaaf0397
(py-execute-region): If the line at the beginning of the region is a
Barry Warsaw <barry@python.org>
parents:
23222
diff
changeset
|
1529 ;; Set the shell either to the #! line command, or to the |
|
f5aeeaaf0397
(py-execute-region): If the line at the beginning of the region is a
Barry Warsaw <barry@python.org>
parents:
23222
diff
changeset
|
1530 ;; py-which-shell buffer local variable. |
|
23277
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1531 (setq shell (or (py-choose-shell-by-shebang) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1532 (py-choose-shell-by-import) |
|
314e08e8090f
SF patch #510288 by Kevin J. Butler, mod'd by Barry. This provides
Barry Warsaw <barry@python.org>
parents:
23275
diff
changeset
|
1533 py-which-shell)))) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1534 (cond |
|
8370
f2b0859fece3
#Documentation and comment typos patch given by Michael Ernst. More
Barry Warsaw <barry@python.org>
parents:
8070
diff
changeset
|
1535 ;; always run the code in its own asynchronous subprocess |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1536 (async |
|
12736
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1537 ;; User explicitly wants this to run in its own async subprocess |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1538 (save-excursion |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1539 (set-buffer buf) |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1540 (write-region (point-min) (point-max) file nil 'nomsg)) |
|
9503
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1541 (let* ((buf (generate-new-buffer-name py-output-buffer)) |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1542 ;; TBD: a horrible hack, but why create new Custom variables? |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1543 (arg (if (string-equal py-which-bufname "Python") |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1544 "-u" ""))) |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
1545 (start-process py-which-bufname buf shell arg file) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1546 (pop-to-buffer buf) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1547 (py-postprocess-output-buffer buf) |
|
12736
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1548 ;; TBD: clean up the temporary file! |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1549 )) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1550 ;; if the Python interpreter shell is running, queue it up for |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1551 ;; execution there. |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1552 (proc |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1553 ;; use the existing python shell |
|
12736
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1554 (save-excursion |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1555 (set-buffer buf) |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1556 (write-region (point-min) (point-max) file nil 'nomsg)) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1557 (if (not py-file-queue) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1558 (py-execute-file proc file) |
|
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1559 (message "File %s queued for execution" file)) |
|
9025
3df5b9d8335b
(py-process-filter): Deleted this function. In order to fix
Barry Warsaw <barry@python.org>
parents:
9005
diff
changeset
|
1560 (setq py-file-queue (append py-file-queue (list file))) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1561 (setq py-exception-buffer (cons file (current-buffer)))) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1562 (t |
|
23223
f5aeeaaf0397
(py-execute-region): If the line at the beginning of the region is a
Barry Warsaw <barry@python.org>
parents:
23222
diff
changeset
|
1563 ;; TBD: a horrible hack, but why create new Custom variables? |
|
f5aeeaaf0397
(py-execute-region): If the line at the beginning of the region is a
Barry Warsaw <barry@python.org>
parents:
23222
diff
changeset
|
1564 (let ((cmd (concat shell (if (string-equal py-which-bufname "JPython") |
|
f5aeeaaf0397
(py-execute-region): If the line at the beginning of the region is a
Barry Warsaw <barry@python.org>
parents:
23222
diff
changeset
|
1565 " -" "")))) |
|
9503
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1566 ;; otherwise either run it synchronously in a subprocess |
|
12736
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1567 (save-excursion |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1568 (set-buffer buf) |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1569 (shell-command-on-region (point-min) (point-max) |
|
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1570 cmd py-output-buffer)) |
|
9503
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1571 ;; shell-command-on-region kills the output buffer if it never |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1572 ;; existed and there's no output from the command |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1573 (if (not (get-buffer py-output-buffer)) |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1574 (message "No output.") |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1575 (setq py-exception-buffer (current-buffer)) |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1576 (let ((err-p (py-postprocess-output-buffer py-output-buffer))) |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1577 (pop-to-buffer py-output-buffer) |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1578 (if err-p |
|
fec862301d6e
(py-execute-region): Hack around the different behavior and switch
Barry Warsaw <barry@python.org>
parents:
9491
diff
changeset
|
1579 (pop-to-buffer py-exception-buffer))) |
|
12736
d2573dbf6852
(py-execute-region): Based on suggestions by Francois Pinard and Skip
Barry Warsaw <barry@python.org>
parents:
11186
diff
changeset
|
1580 )) |
|
23229
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
1581 )) |
|
16715
3e9396ac4ba0
(py-execute-region): This one's easy... kill the temporary file's
Barry Warsaw <barry@python.org>
parents:
15668
diff
changeset
|
1582 ;; Clean up after ourselves. |
|
3e9396ac4ba0
(py-execute-region): This one's easy... kill the temporary file's
Barry Warsaw <barry@python.org>
parents:
15668
diff
changeset
|
1583 (kill-buffer buf))) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1584 |
| 8378 | 1585 |
| 1586 ;; Code execution commands | |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1587 (defun py-execute-buffer (&optional async) |
| 2018 | 1588 "Send the contents of the buffer to a Python interpreter. |
|
7142
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
1589 If the file local variable `py-master-file' is non-nil, execute the |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
1590 named file instead of the buffer's file. |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
1591 |
| 2018 | 1592 If there is a *Python* process buffer it is used. If a clipping |
| 1593 restriction is in effect, only the accessible portion of the buffer is | |
| 1594 sent. A trailing newline will be supplied if needed. | |
| 1595 | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1596 See the `\\[py-execute-region]' docs for an account of some |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1597 subtleties, including the use of the optional ASYNC argument." |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1598 (interactive "P") |
|
7142
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
1599 (if py-master-file |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
1600 (let* ((filename (expand-file-name py-master-file)) |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
1601 (buffer (or (get-file-buffer filename) |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
1602 (find-file-noselect filename)))) |
|
aff1e7b1f523
(py-master-file): New buffer-local variable which can be set in the
Barry Warsaw <barry@python.org>
parents:
6836
diff
changeset
|
1603 (set-buffer buffer))) |
|
6555
a5f7eb869f21
First round of changes, mostly subprocess stuff.
Barry Warsaw <barry@python.org>
parents:
6544
diff
changeset
|
1604 (py-execute-region (point-min) (point-max) async)) |
| 2018 | 1605 |
| 8378 | 1606 (defun py-execute-import-or-reload (&optional async) |
| 1607 "Import the current buffer's file in a Python interpreter. | |
| 1608 | |
| 1609 If the file has already been imported, then do reload instead to get | |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1610 the latest version. |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1611 |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1612 If the file's name does not end in \".py\", then do execfile instead. |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1613 |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1614 If the current buffer is not visiting a file, do `py-execute-buffer' |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1615 instead. |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1616 |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1617 If the file local variable `py-master-file' is non-nil, import or |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1618 reload the named file instead of the buffer's file. The file may be |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1619 saved based on the value of `py-execute-import-or-reload-save-p'. |
| 8378 | 1620 |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1621 See the `\\[py-execute-region]' docs for an account of some |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1622 subtleties, including the use of the optional ASYNC argument. |
| 8378 | 1623 |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
1624 This may be preferable to `\\[py-execute-buffer]' because: |
| 8378 | 1625 |
| 1626 - Definitions stay in their module rather than appearing at top | |
| 1627 level, where they would clutter the global namespace and not affect | |
| 1628 uses of qualified names (MODULE.NAME). | |
| 1629 | |
| 1630 - The Python debugger gets line number information about the functions." | |
| 1631 (interactive "P") | |
| 1632 ;; Check file local variable py-master-file | |
| 1633 (if py-master-file | |
| 1634 (let* ((filename (expand-file-name py-master-file)) | |
| 1635 (buffer (or (get-file-buffer filename) | |
| 1636 (find-file-noselect filename)))) | |
| 1637 (set-buffer buffer))) | |
| 1638 (let ((file (buffer-file-name (current-buffer)))) | |
| 1639 (if file | |
| 1640 (progn | |
|
8381
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
1641 ;; Maybe save some buffers |
|
822e0812f20c
(py-ask-about-save): New variable used in
Barry Warsaw <barry@python.org>
parents:
8380
diff
changeset
|
1642 (save-some-buffers (not py-ask-about-save) nil) |
| 8378 | 1643 (py-execute-string |
| 1644 (if (string-match "\\.py$" file) | |
| 1645 (let ((f (file-name-sans-extension | |
| 1646 (file-name-nondirectory file)))) | |
| 1647 (format "if globals().has_key('%s'):\n reload(%s)\nelse:\n import %s\n" | |
| 1648 f f f)) | |
|
9141
881b86398c20
(py-execute-file, py-execute-import-or-reload): Use a Python `raw'
Barry Warsaw <barry@python.org>
parents:
9136
diff
changeset
|
1649 (format "execfile(r'%s')\n" file)) |
| 8378 | 1650 async)) |
| 1651 ;; else | |
| 1652 (py-execute-buffer async)))) | |
| 1653 | |
| 1654 | |
| 1655 (defun py-execute-def-or-class (&optional async) | |
| 1656 "Send the current function or class definition to a Python interpreter. | |
| 1657 | |
| 1658 If there is a *Python* process buffer it is used. | |
| 1659 | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1660 See the `\\[py-execute-region]' docs for an account of some |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1661 subtleties, including the use of the optional ASYNC argument." |
| 8378 | 1662 (interactive "P") |
| 1663 (save-excursion | |
| 1664 (py-mark-def-or-class) | |
| 1665 ;; mark is before point | |
| 1666 (py-execute-region (mark) (point) async))) | |
| 1667 | |
| 1668 | |
| 1669 (defun py-execute-string (string &optional async) | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1670 "Send the argument STRING to a Python interpreter. |
| 8378 | 1671 |
| 1672 If there is a *Python* process buffer it is used. | |
| 1673 | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1674 See the `\\[py-execute-region]' docs for an account of some |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1675 subtleties, including the use of the optional ASYNC argument." |
| 8378 | 1676 (interactive "sExecute Python command: ") |
| 1677 (save-excursion | |
| 1678 (set-buffer (get-buffer-create | |
| 1679 (generate-new-buffer-name " *Python Command*"))) | |
| 1680 (insert string) | |
| 1681 (py-execute-region (point-min) (point-max) async))) | |
| 1682 | |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1683 |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1684 |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1685 (defun py-jump-to-exception (file line) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1686 "Jump to the Python code in FILE at LINE." |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1687 (let ((buffer (cond ((string-equal file "<stdin>") |
| 8371 | 1688 (if (consp py-exception-buffer) |
| 1689 (cdr py-exception-buffer) | |
| 1690 py-exception-buffer)) | |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1691 ((and (consp py-exception-buffer) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1692 (string-equal file (car py-exception-buffer))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1693 (cdr py-exception-buffer)) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1694 ((py-safe (find-file-noselect file))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1695 ;; could not figure out what file the exception |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1696 ;; is pointing to, so prompt for it |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1697 (t (find-file (read-file-name "Exception file: " |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1698 nil |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1699 file t)))))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1700 (pop-to-buffer buffer) |
| 8371 | 1701 ;; Force Python mode |
| 8378 | 1702 (if (not (eq major-mode 'python-mode)) |
| 8371 | 1703 (python-mode)) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1704 (goto-line line) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1705 (message "Jumping to exception in file %s on line %d" file line))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1706 |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1707 (defun py-mouseto-exception (event) |
|
8924
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
1708 "Jump to the code which caused the Python exception at EVENT. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1709 EVENT is usually a mouse click." |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1710 (interactive "e") |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1711 (cond |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1712 ((fboundp 'event-point) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1713 ;; XEmacs |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1714 (let* ((point (event-point event)) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1715 (buffer (event-buffer event)) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1716 (e (and point buffer (extent-at point buffer 'py-exc-info))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1717 (info (and e (extent-property e 'py-exc-info)))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1718 (message "Event point: %d, info: %s" point info) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1719 (and info |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1720 (py-jump-to-exception (car info) (cdr info))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1721 )) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1722 ;; Emacs -- Please port this! |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1723 )) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1724 |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1725 (defun py-goto-exception () |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1726 "Go to the line indicated by the traceback." |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1727 (interactive) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1728 (let (file line) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1729 (save-excursion |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1730 (beginning-of-line) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1731 (if (looking-at py-traceback-line-re) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1732 (setq file (match-string 1) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1733 line (string-to-int (match-string 2))))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1734 (if (not file) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1735 (error "Not on a traceback line")) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1736 (py-jump-to-exception file line))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1737 |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1738 (defun py-find-next-exception (start buffer searchdir errwhere) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1739 "Find the next Python exception and jump to the code that caused it. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1740 START is the buffer position in BUFFER from which to begin searching |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1741 for an exception. SEARCHDIR is a function, either |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1742 `re-search-backward' or `re-search-forward' indicating the direction |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1743 to search. ERRWHERE is used in an error message if the limit (top or |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1744 bottom) of the trackback stack is encountered." |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1745 (let (file line) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1746 (save-excursion |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1747 (set-buffer buffer) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1748 (goto-char (py-point start)) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1749 (if (funcall searchdir py-traceback-line-re nil t) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1750 (setq file (match-string 1) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1751 line (string-to-int (match-string 2))))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1752 (if (and file line) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1753 (py-jump-to-exception file line) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1754 (error "%s of traceback" errwhere)))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1755 |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1756 (defun py-down-exception (&optional bottom) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1757 "Go to the next line down in the traceback. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1758 With \\[univeral-argument] (programmatically, optional argument |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1759 BOTTOM), jump to the bottom (innermost) exception in the exception |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1760 stack." |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1761 (interactive "P") |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1762 (let* ((proc (get-process "Python")) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1763 (buffer (if proc "*Python*" py-output-buffer))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1764 (if bottom |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1765 (py-find-next-exception 'eob buffer 're-search-backward "Bottom") |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1766 (py-find-next-exception 'eol buffer 're-search-forward "Bottom")))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1767 |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1768 (defun py-up-exception (&optional top) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1769 "Go to the previous line up in the traceback. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1770 With \\[universal-argument] (programmatically, optional argument TOP) |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1771 jump to the top (outermost) exception in the exception stack." |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1772 (interactive "P") |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1773 (let* ((proc (get-process "Python")) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1774 (buffer (if proc "*Python*" py-output-buffer))) |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1775 (if top |
|
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1776 (py-find-next-exception 'bob buffer 're-search-forward "Top") |
|
6683
cb889b678053
(py-traceback-line-re): Relaxation of regexp to catch SyntaxErrors.
Barry Warsaw <barry@python.org>
parents:
6679
diff
changeset
|
1777 (py-find-next-exception 'bol buffer 're-search-backward "Top")))) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1778 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1779 |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1780 ;; Electric deletion |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1781 (defun py-electric-backspace (arg) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1782 "Delete preceding character or levels of indentation. |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1783 Deletion is performed by calling the function in `py-backspace-function' |
|
4764
88714fbf9a06
(py-delete-function): new variable
Barry Warsaw <barry@python.org>
parents:
4763
diff
changeset
|
1784 with a single argument (the number of characters to delete). |
| 2018 | 1785 |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1786 If point is at the leftmost column, delete the preceding newline. |
| 2018 | 1787 |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1788 Otherwise, if point is at the leftmost non-whitespace character of a |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1789 line that is neither a continuation line nor a non-indenting comment |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1790 line, or if point is at the end of a blank line, this command reduces |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1791 the indentation to match that of the line that opened the current |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1792 block of code. The line that opened the block is displayed in the |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1793 echo area to help you keep track of where you are. With |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1794 \\[universal-argument] dedents that many blocks (but not past column |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1795 zero). |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1796 |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1797 Otherwise the preceding character is deleted, converting a tab to |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1798 spaces if needed so that only a single column position is deleted. |
|
10877
2669ac7cd76a
(py-electric-backspace): I'm not sure this function should be special
Barry Warsaw <barry@python.org>
parents:
10876
diff
changeset
|
1799 \\[universal-argument] specifies how many characters to delete; |
|
2669ac7cd76a
(py-electric-backspace): I'm not sure this function should be special
Barry Warsaw <barry@python.org>
parents:
10876
diff
changeset
|
1800 default is 1. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1801 |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1802 When used programmatically, argument ARG specifies the number of |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1803 blocks to dedent, or the number of characters to delete, as indicated |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1804 above." |
|
3744
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1805 (interactive "*p") |
| 2018 | 1806 (if (or (/= (current-indentation) (current-column)) |
| 1807 (bolp) | |
| 1808 (py-continuation-line-p) | |
|
10877
2669ac7cd76a
(py-electric-backspace): I'm not sure this function should be special
Barry Warsaw <barry@python.org>
parents:
10876
diff
changeset
|
1809 ; (not py-honor-comment-indentation) |
|
2669ac7cd76a
(py-electric-backspace): I'm not sure this function should be special
Barry Warsaw <barry@python.org>
parents:
10876
diff
changeset
|
1810 ; (looking-at "#[^ \t\n]") ; non-indenting # |
|
2669ac7cd76a
(py-electric-backspace): I'm not sure this function should be special
Barry Warsaw <barry@python.org>
parents:
10876
diff
changeset
|
1811 ) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1812 (funcall py-backspace-function arg) |
| 2018 | 1813 ;; else indent the same as the colon line that opened the block |
| 1814 ;; force non-blank so py-goto-block-up doesn't ignore it | |
| 1815 (insert-char ?* 1) | |
| 1816 (backward-char) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1817 (let ((base-indent 0) ; indentation of base line |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1818 (base-text "") ; and text of base line |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1819 (base-found-p nil)) |
|
3744
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1820 (save-excursion |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1821 (while (< 0 arg) |
|
3744
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1822 (condition-case nil ; in case no enclosing block |
|
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1823 (progn |
|
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1824 (py-goto-block-up 'no-mark) |
|
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1825 (setq base-indent (current-indentation) |
|
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1826 base-text (py-suck-up-leading-text) |
|
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1827 base-found-p t)) |
|
ffdf1f06cf8b
(py-delete-char): Obey numeric argument.
Barry Warsaw <barry@python.org>
parents:
3743
diff
changeset
|
1828 (error nil)) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1829 (setq arg (1- arg)))) |
| 2018 | 1830 (delete-char 1) ; toss the dummy character |
| 1831 (delete-horizontal-space) | |
| 1832 (indent-to base-indent) | |
| 1833 (if base-found-p | |
| 1834 (message "Closes block: %s" base-text))))) | |
| 1835 | |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1836 |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1837 (defun py-electric-delete (arg) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1838 "Delete preceding or following character or levels of whitespace. |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1839 |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1840 The behavior of this function depends on the variable |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1841 `delete-key-deletes-forward'. If this variable is nil (or does not |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1842 exist, as in older Emacsen and non-XEmacs versions), then this |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1843 function behaves identically to \\[c-electric-backspace]. |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1844 |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1845 If `delete-key-deletes-forward' is non-nil and is supported in your |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1846 Emacs, then deletion occurs in the forward direction, by calling the |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1847 function in `py-delete-function'. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1848 |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1849 \\[universal-argument] (programmatically, argument ARG) specifies the |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1850 number of characters to delete (default is 1)." |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1851 (interactive "*p") |
|
9897
7bdef4bedd5c
(py-electric-delete): Implement the XEmacs 21 blessed way of checking
Barry Warsaw <barry@python.org>
parents:
9827
diff
changeset
|
1852 (if (or (and (fboundp 'delete-forward-p) ;XEmacs 21 |
|
7bdef4bedd5c
(py-electric-delete): Implement the XEmacs 21 blessed way of checking
Barry Warsaw <barry@python.org>
parents:
9827
diff
changeset
|
1853 (delete-forward-p)) |
|
7bdef4bedd5c
(py-electric-delete): Implement the XEmacs 21 blessed way of checking
Barry Warsaw <barry@python.org>
parents:
9827
diff
changeset
|
1854 (and (boundp 'delete-key-deletes-forward) ;XEmacs 20 |
|
7bdef4bedd5c
(py-electric-delete): Implement the XEmacs 21 blessed way of checking
Barry Warsaw <barry@python.org>
parents:
9827
diff
changeset
|
1855 delete-key-deletes-forward)) |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1856 (funcall py-delete-function arg) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1857 (py-electric-backspace arg))) |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1858 |
|
2513
56e25114d438
(py-delete-char): must have 'supersede value for 'delete-selection and
Barry Warsaw <barry@python.org>
parents:
2499
diff
changeset
|
1859 ;; required for pending-del and delsel modes |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1860 (put 'py-electric-backspace 'delete-selection 'supersede) ;delsel |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1861 (put 'py-electric-backspace 'pending-delete 'supersede) ;pending-del |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1862 (put 'py-electric-delete 'delete-selection 'supersede) ;delsel |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1863 (put 'py-electric-delete 'pending-delete 'supersede) ;pending-del |
|
2513
56e25114d438
(py-delete-char): must have 'supersede value for 'delete-selection and
Barry Warsaw <barry@python.org>
parents:
2499
diff
changeset
|
1864 |
|
6556
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1865 |
|
4280b2729cce
(py-backspace-function): New variable.
Barry Warsaw <barry@python.org>
parents:
6555
diff
changeset
|
1866 |
|
4479
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1867 (defun py-indent-line (&optional arg) |
|
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1868 "Fix the indentation of the current line according to Python rules. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1869 With \\[universal-argument] (programmatically, the optional argument |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1870 ARG non-nil), ignore dedenting rules for block closing statements |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1871 (e.g. return, raise, break, continue, pass) |
|
4479
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1872 |
|
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1873 This function is normally bound to `indent-line-function' so |
|
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1874 \\[indent-for-tab-command] will call it." |
|
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1875 (interactive "P") |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1876 (let* ((ci (current-indentation)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1877 (move-to-indentation-p (<= (current-column) ci)) |
|
4479
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1878 (need (py-compute-indentation (not arg)))) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1879 ;; see if we need to dedent |
|
2547
3281a931a1d9
(py-outdent-p): new function
Barry Warsaw <barry@python.org>
parents:
2544
diff
changeset
|
1880 (if (py-outdent-p) |
|
2537
6fcd0b022fa7
(py-outdent-re): new constant
Barry Warsaw <barry@python.org>
parents:
2536
diff
changeset
|
1881 (setq need (- need py-indent-offset))) |
| 2018 | 1882 (if (/= ci need) |
| 1883 (save-excursion | |
| 1884 (beginning-of-line) | |
| 1885 (delete-horizontal-space) | |
| 1886 (indent-to need))) | |
| 1887 (if move-to-indentation-p (back-to-indentation)))) | |
| 1888 | |
| 1889 (defun py-newline-and-indent () | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1890 "Strives to act like the Emacs `newline-and-indent'. |
| 2018 | 1891 This is just `strives to' because correct indentation can't be computed |
| 1892 from scratch for Python code. In general, deletes the whitespace before | |
| 1893 point, inserts a newline, and takes an educated guess as to how you want | |
| 1894 the new line indented." | |
| 1895 (interactive) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
1896 (let ((ci (current-indentation))) |
| 2018 | 1897 (if (< ci (current-column)) ; if point beyond indentation |
| 1898 (newline-and-indent) | |
| 1899 ;; else try to act like newline-and-indent "normally" acts | |
| 1900 (beginning-of-line) | |
| 1901 (insert-char ?\n 1) | |
| 1902 (move-to-column ci)))) | |
| 1903 | |
|
4479
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
1904 (defun py-compute-indentation (honor-block-close-p) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1905 "Compute Python indentation. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1906 When HONOR-BLOCK-CLOSE-P is non-nil, statements such as `return', |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1907 `raise', `break', `continue', and `pass' force one level of |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
1908 dedenting." |
| 2018 | 1909 (save-excursion |
|
7262
c09907104092
(py-compute-indentation): Several changes made to improve navigation
Barry Warsaw <barry@python.org>
parents:
7201
diff
changeset
|
1910 (beginning-of-line) |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1911 (let* ((bod (py-point 'bod)) |
|
6678
de2f8f494ae3
(py-compute-indentation): Check for multiline stringness and
Barry Warsaw <barry@python.org>
parents:
6677
diff
changeset
|
1912 (pps (parse-partial-sexp bod (point))) |
|
9639
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
1913 (boipps (parse-partial-sexp bod (py-point 'boi))) |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
1914 placeholder) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1915 (cond |
|
6663
9f02eb36b573
Added comment about where to find details on python-mode.el, pointing
Barry Warsaw <barry@python.org>
parents:
6565
diff
changeset
|
1916 ;; are we inside a multi-line string or comment? |
|
6678
de2f8f494ae3
(py-compute-indentation): Check for multiline stringness and
Barry Warsaw <barry@python.org>
parents:
6677
diff
changeset
|
1917 ((or (and (nth 3 pps) (nth 3 boipps)) |
|
de2f8f494ae3
(py-compute-indentation): Check for multiline stringness and
Barry Warsaw <barry@python.org>
parents:
6677
diff
changeset
|
1918 (and (nth 4 pps) (nth 4 boipps))) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1919 (save-excursion |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1920 (if (not py-align-multiline-strings-p) 0 |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1921 ;; skip back over blank & non-indenting comment lines |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1922 ;; note: will skip a blank or non-indenting comment line |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1923 ;; that happens to be a continuation line too |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1924 (re-search-backward "^[ \t]*\\([^ \t\n#]\\|#[ \t\n]\\)" nil 'move) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1925 (back-to-indentation) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1926 (current-column)))) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1927 ;; are we on a continuation line? |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1928 ((py-continuation-line-p) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1929 (let ((startpos (point)) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1930 (open-bracket-pos (py-nesting-level)) |
|
3923
a39d06497520
(py-keep-region-active): Zap duplicate defun.
Barry Warsaw <barry@python.org>
parents:
3920
diff
changeset
|
1931 endpos searching found state) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1932 (if open-bracket-pos |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1933 (progn |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1934 ;; align with first item in list; else a normal |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1935 ;; indent beyond the line with the open bracket |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1936 (goto-char (1+ open-bracket-pos)) ; just beyond bracket |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1937 ;; is the first list item on the same line? |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1938 (skip-chars-forward " \t") |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1939 (if (null (memq (following-char) '(?\n ?# ?\\))) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1940 ; yes, so line up with it |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1941 (current-column) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1942 ;; first list item on another line, or doesn't exist yet |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1943 (forward-line 1) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1944 (while (and (< (point) startpos) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1945 (looking-at "[ \t]*[#\n\\\\]")) ; skip noise |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1946 (forward-line 1)) |
|
7777
5e215894c555
(py-compute-indentation): When looking at a continuation line inside
Barry Warsaw <barry@python.org>
parents:
7776
diff
changeset
|
1947 (if (and (< (point) startpos) |
|
5e215894c555
(py-compute-indentation): When looking at a continuation line inside
Barry Warsaw <barry@python.org>
parents:
7776
diff
changeset
|
1948 (/= startpos |
|
5e215894c555
(py-compute-indentation): When looking at a continuation line inside
Barry Warsaw <barry@python.org>
parents:
7776
diff
changeset
|
1949 (save-excursion |
|
5e215894c555
(py-compute-indentation): When looking at a continuation line inside
Barry Warsaw <barry@python.org>
parents:
7776
diff
changeset
|
1950 (goto-char (1+ open-bracket-pos)) |
|
8070
4a2f1c69fde8
(py-compute-indentation): Use forward-comment to skip over all
Barry Warsaw <barry@python.org>
parents:
7952
diff
changeset
|
1951 (forward-comment (point-max)) |
|
7777
5e215894c555
(py-compute-indentation): When looking at a continuation line inside
Barry Warsaw <barry@python.org>
parents:
7776
diff
changeset
|
1952 (point)))) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1953 ;; again mimic the first list item |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1954 (current-indentation) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1955 ;; else they're about to enter the first item |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1956 (goto-char open-bracket-pos) |
|
9639
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
1957 (setq placeholder (point)) |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
1958 (py-goto-initial-line) |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
1959 (py-goto-beginning-of-tqs |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
1960 (save-excursion (nth 3 (parse-partial-sexp |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
1961 placeholder (point))))) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1962 (+ (current-indentation) py-indent-offset)))) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1963 |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1964 ;; else on backslash continuation line |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1965 (forward-line -1) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1966 (if (py-continuation-line-p) ; on at least 3rd line in block |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1967 (current-indentation) ; so just continue the pattern |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1968 ;; else started on 2nd line in block, so indent more. |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1969 ;; if base line is an assignment with a start on a RHS, |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1970 ;; indent to 2 beyond the leftmost "="; else skip first |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1971 ;; chunk of non-whitespace characters on base line, + 1 more |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1972 ;; column |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1973 (end-of-line) |
|
18150
9ce8a995bf12
(py-continuation-offset): New variable which controls how much to
Barry Warsaw <barry@python.org>
parents:
17422
diff
changeset
|
1974 (setq endpos (point) |
|
9ce8a995bf12
(py-continuation-offset): New variable which controls how much to
Barry Warsaw <barry@python.org>
parents:
17422
diff
changeset
|
1975 searching t) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1976 (back-to-indentation) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1977 (setq startpos (point)) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1978 ;; look at all "=" from left to right, stopping at first |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1979 ;; one not nested in a list or string |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1980 (while searching |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1981 (skip-chars-forward "^=" endpos) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1982 (if (= (point) endpos) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1983 (setq searching nil) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1984 (forward-char 1) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1985 (setq state (parse-partial-sexp startpos (point))) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1986 (if (and (zerop (car state)) ; not in a bracket |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1987 (null (nth 3 state))) ; & not in a string |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1988 (progn |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1989 (setq searching nil) ; done searching in any case |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1990 (setq found |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1991 (not (or |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1992 (eq (following-char) ?=) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1993 (memq (char-after (- (point) 2)) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1994 '(?< ?> ?!))))))))) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1995 (if (or (not found) ; not an assignment |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1996 (looking-at "[ \t]*\\\\")) ; <=><spaces><backslash> |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1997 (progn |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1998 (goto-char startpos) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
1999 (skip-chars-forward "^ \t\n"))) |
|
18412
a29bef457ed8
(py-continuation-offset): Update docstring to describe that this
Barry Warsaw <barry@python.org>
parents:
18156
diff
changeset
|
2000 ;; if this is a continuation for a block opening |
|
a29bef457ed8
(py-continuation-offset): Update docstring to describe that this
Barry Warsaw <barry@python.org>
parents:
18156
diff
changeset
|
2001 ;; statement, add some extra offset. |
|
a29bef457ed8
(py-continuation-offset): Update docstring to describe that this
Barry Warsaw <barry@python.org>
parents:
18156
diff
changeset
|
2002 (+ (current-column) (if (py-statement-opens-block-p) |
|
a29bef457ed8
(py-continuation-offset): Update docstring to describe that this
Barry Warsaw <barry@python.org>
parents:
18156
diff
changeset
|
2003 py-continuation-offset 0) |
|
a29bef457ed8
(py-continuation-offset): Update docstring to describe that this
Barry Warsaw <barry@python.org>
parents:
18156
diff
changeset
|
2004 1) |
|
18150
9ce8a995bf12
(py-continuation-offset): New variable which controls how much to
Barry Warsaw <barry@python.org>
parents:
17422
diff
changeset
|
2005 )))) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2006 |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2007 ;; not on a continuation line |
|
3919
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2008 ((bobp) (current-indentation)) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2009 |
|
3919
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2010 ;; Dfn: "Indenting comment line". A line containing only a |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2011 ;; comment, but which is treated like a statement for |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2012 ;; indentation calculation purposes. Such lines are only |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2013 ;; treated specially by the mode; they are not treated |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2014 ;; specially by the Python interpreter. |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2015 |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2016 ;; The rules for indenting comment lines are a line where: |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2017 ;; - the first non-whitespace character is `#', and |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2018 ;; - the character following the `#' is whitespace, and |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2019 ;; - the line is dedented with respect to (i.e. to the left |
|
3919
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2020 ;; of) the indentation of the preceding non-blank line. |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2021 |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2022 ;; The first non-blank line following an indenting comment |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2023 ;; line is given the same amount of indentation as the |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2024 ;; indenting comment line. |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2025 |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2026 ;; All other comment-only lines are ignored for indentation |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2027 ;; purposes. |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2028 |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2029 ;; Are we looking at a comment-only line which is *not* an |
|
8370
f2b0859fece3
#Documentation and comment typos patch given by Michael Ernst. More
Barry Warsaw <barry@python.org>
parents:
8070
diff
changeset
|
2030 ;; indenting comment line? If so, we assume that it's been |
|
3919
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2031 ;; placed at the desired indentation, so leave it alone. |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2032 ;; Indenting comment lines are aligned as statements down |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2033 ;; below. |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2034 ((and (looking-at "[ \t]*#[^ \t\n]") |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2035 ;; NOTE: this test will not be performed in older Emacsen |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2036 (fboundp 'forward-comment) |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2037 (<= (current-indentation) |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2038 (save-excursion |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2039 (forward-comment (- (point-max))) |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2040 (current-indentation)))) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2041 (current-indentation)) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2042 |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2043 ;; else indentation based on that of the statement that |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2044 ;; precedes us; use the first line of that statement to |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2045 ;; establish the base, in case the user forced a non-std |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2046 ;; indentation for the continuation lines (if any) |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2047 (t |
|
3093
b3a8013cb4fa
(py-compute-indentation): when inside a comment, indent to under the
Barry Warsaw <barry@python.org>
parents:
2799
diff
changeset
|
2048 ;; skip back over blank & non-indenting comment lines note: |
|
b3a8013cb4fa
(py-compute-indentation): when inside a comment, indent to under the
Barry Warsaw <barry@python.org>
parents:
2799
diff
changeset
|
2049 ;; will skip a blank or non-indenting comment line that |
|
3426
6402be2689c5
(py-compute-indentation): fix skipping backwards over comments by
Barry Warsaw <barry@python.org>
parents:
3348
diff
changeset
|
2050 ;; happens to be a continuation line too. use fast Emacs 19 |
|
6402be2689c5
(py-compute-indentation): fix skipping backwards over comments by
Barry Warsaw <barry@python.org>
parents:
3348
diff
changeset
|
2051 ;; function if it's there. |
|
3434
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
2052 (if (and (eq py-honor-comment-indentation nil) |
|
3429
da86b3b54363
(py-honor-comment-indentation): new variable.
Barry Warsaw <barry@python.org>
parents:
3428
diff
changeset
|
2053 (fboundp 'forward-comment)) |
|
3426
6402be2689c5
(py-compute-indentation): fix skipping backwards over comments by
Barry Warsaw <barry@python.org>
parents:
3348
diff
changeset
|
2054 (forward-comment (- (point-max))) |
|
9136
e1b710e30acf
(py-block-comment-prefix): Remove trailing space. Also explain that
Barry Warsaw <barry@python.org>
parents:
9106
diff
changeset
|
2055 (let ((prefix-re (concat py-block-comment-prefix "[ \t]*")) |
|
e1b710e30acf
(py-block-comment-prefix): Remove trailing space. Also explain that
Barry Warsaw <barry@python.org>
parents:
9106
diff
changeset
|
2056 done) |
|
3434
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
2057 (while (not done) |
|
8924
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2058 (re-search-backward "^[ \t]*\\([^ \t\n#]\\|#\\)" nil 'move) |
|
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2059 (setq done (or (bobp) |
|
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2060 (and (eq py-honor-comment-indentation t) |
|
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2061 (save-excursion |
|
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2062 (back-to-indentation) |
|
9136
e1b710e30acf
(py-block-comment-prefix): Remove trailing space. Also explain that
Barry Warsaw <barry@python.org>
parents:
9106
diff
changeset
|
2063 (not (looking-at prefix-re)) |
|
8924
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2064 )) |
|
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2065 (and (not (eq py-honor-comment-indentation t)) |
|
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2066 (save-excursion |
|
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2067 (back-to-indentation) |
|
22336
029e4cbd2312
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
18415
diff
changeset
|
2068 (and (not (looking-at prefix-re)) |
|
029e4cbd2312
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
18415
diff
changeset
|
2069 (or (looking-at "[^#]") |
|
029e4cbd2312
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
18415
diff
changeset
|
2070 (not (zerop (current-column))) |
|
029e4cbd2312
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
18415
diff
changeset
|
2071 )) |
|
029e4cbd2312
backport bwarsaw's checkin of
Michael W. Hudson <mwh@python.net>
parents:
18415
diff
changeset
|
2072 )) |
|
8924
0954ad4acdfd
(py-compute-indentation): Changes to the `t' condition which affect
Barry Warsaw <barry@python.org>
parents:
8911
diff
changeset
|
2073 )) |
|
3434
529f4d9cbe3d
(py-honor-comment-indentation, py-compute-indentation): allow other
Barry Warsaw <barry@python.org>
parents:
3429
diff
changeset
|
2074 ))) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2075 ;; if we landed inside a string, go to the beginning of that |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2076 ;; string. this handles triple quoted, multi-line spanning |
|
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2077 ;; strings. |
|
9639
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
2078 (py-goto-beginning-of-tqs (nth 3 (parse-partial-sexp bod (point)))) |
|
7143
3f0be7de7ca5
(py-compute-indentation): In the most common case, where indentation
Barry Warsaw <barry@python.org>
parents:
7142
diff
changeset
|
2079 ;; now skip backward over continued lines |
|
9639
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
2080 (setq placeholder (point)) |
|
3114
3aab925ebfb0
(py-align-multiline-strings-p): new variable
Barry Warsaw <barry@python.org>
parents:
3095
diff
changeset
|
2081 (py-goto-initial-line) |
|
9639
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
2082 ;; we may *now* have landed in a TQS, so find the beginning of |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
2083 ;; this string. |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
2084 (py-goto-beginning-of-tqs |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
2085 (save-excursion (nth 3 (parse-partial-sexp |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
2086 placeholder (point))))) |
|
3900
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
2087 (+ (current-indentation) |
|
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
2088 (if (py-statement-opens-block-p) |
|
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
2089 py-indent-offset |
|
4479
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
2090 (if (and honor-block-close-p (py-statement-closes-block-p)) |
|
3900
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
2091 (- py-indent-offset) |
|
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
2092 0))) |
|
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
2093 ))))) |
| 2018 | 2094 |
| 2095 (defun py-guess-indent-offset (&optional global) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2096 "Guess a good value for, and change, `py-indent-offset'. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2097 |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2098 By default, make a buffer-local copy of `py-indent-offset' with the |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2099 new value, so that other Python buffers are not affected. With |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2100 \\[universal-argument] (programmatically, optional argument GLOBAL), |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2101 change the global value of `py-indent-offset'. This affects all |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2102 Python buffers (that don't have their own buffer-local copy), both |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2103 those currently existing and those created later in the Emacs session. |
| 2018 | 2104 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2105 Some people use a different value for `py-indent-offset' than you use. |
| 2018 | 2106 There's no excuse for such foolishness, but sometimes you have to deal |
| 2107 with their ugly code anyway. This function examines the file and sets | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2108 `py-indent-offset' to what it thinks it was when they created the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2109 mess. |
| 2018 | 2110 |
| 2111 Specifically, it searches forward from the statement containing point, | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2112 looking for a line that opens a block of code. `py-indent-offset' is |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2113 set to the difference in indentation between that line and the Python |
| 2018 | 2114 statement following it. If the search doesn't succeed going forward, |
| 2115 it's tried again going backward." | |
| 2116 (interactive "P") ; raw prefix arg | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2117 (let (new-value |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2118 (start (point)) |
|
7725
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2119 (restart (point)) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2120 (found nil) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2121 colon-indent) |
| 2018 | 2122 (py-goto-initial-line) |
| 2123 (while (not (or found (eobp))) | |
|
7725
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2124 (when (and (re-search-forward ":[ \t]*\\($\\|[#\\]\\)" nil 'move) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2125 (not (py-in-literal restart))) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2126 (setq restart (point)) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2127 (py-goto-initial-line) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2128 (if (py-statement-opens-block-p) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2129 (setq found t) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2130 (goto-char restart)))) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2131 (unless found |
| 2018 | 2132 (goto-char start) |
| 2133 (py-goto-initial-line) | |
| 2134 (while (not (or found (bobp))) | |
|
7725
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2135 (setq found (and |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2136 (re-search-backward ":[ \t]*\\($\\|[#\\]\\)" nil 'move) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2137 (or (py-goto-initial-line) t) ; always true -- side effect |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2138 (py-statement-opens-block-p))))) |
| 2018 | 2139 (setq colon-indent (current-indentation) |
| 2140 found (and found (zerop (py-next-statement 1))) | |
| 2141 new-value (- (current-indentation) colon-indent)) | |
| 2142 (goto-char start) | |
|
7725
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2143 (if (not found) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2144 (error "Sorry, couldn't guess a value for py-indent-offset") |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2145 (funcall (if global 'kill-local-variable 'make-local-variable) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2146 'py-indent-offset) |
|
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2147 (setq py-indent-offset new-value) |
|
9142
98dc675d0913
(py-guess-indent-offset): Only print message about py-indent-offset
Barry Warsaw <barry@python.org>
parents:
9141
diff
changeset
|
2148 (or noninteractive |
|
98dc675d0913
(py-guess-indent-offset): Only print message about py-indent-offset
Barry Warsaw <barry@python.org>
parents:
9141
diff
changeset
|
2149 (message "%s value of py-indent-offset set to %d" |
|
98dc675d0913
(py-guess-indent-offset): Only print message about py-indent-offset
Barry Warsaw <barry@python.org>
parents:
9141
diff
changeset
|
2150 (if global "Global" "Local") |
|
98dc675d0913
(py-guess-indent-offset): Only print message about py-indent-offset
Barry Warsaw <barry@python.org>
parents:
9141
diff
changeset
|
2151 py-indent-offset))) |
|
7725
663367ca13f8
(py-in-literal, py-fast-in-literal): New functions (mostly) stolen
Barry Warsaw <barry@python.org>
parents:
7724
diff
changeset
|
2152 )) |
| 2018 | 2153 |
|
8628
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2154 (defun py-comment-indent-function () |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2155 "Python version of `comment-indent-function'." |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2156 ;; This is required when filladapt is turned off. Without it, when |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2157 ;; filladapt is not used, comments which start in column zero |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2158 ;; cascade one character to the right |
|
8628
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2159 (save-excursion |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2160 (beginning-of-line) |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2161 (let ((eol (py-point 'eol))) |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2162 (and comment-start-skip |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2163 (re-search-forward comment-start-skip eol t) |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2164 (setq eol (match-beginning 0))) |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2165 (goto-char eol) |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2166 (skip-chars-backward " \t") |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2167 (max comment-column (+ (current-column) (if (bolp) 0 1))) |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2168 ))) |
|
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2169 |
|
9905
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2170 (defun py-narrow-to-defun (&optional class) |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2171 "Make text outside current defun invisible. |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2172 The defun visible is the one that contains point or follows point. |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2173 Optional CLASS is passed directly to `py-beginning-of-def-or-class'." |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2174 (interactive "P") |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2175 (save-excursion |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2176 (widen) |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2177 (py-end-of-def-or-class class) |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2178 (let ((end (point))) |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2179 (py-beginning-of-def-or-class class) |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2180 (narrow-to-region (point) end)))) |
|
6cf01eab05a3
(py-narrow-to-defun): New command (bound to C-x n d) which mimics the
Barry Warsaw <barry@python.org>
parents:
9897
diff
changeset
|
2181 |
|
8628
aea6841ab898
(py-comment-indent-function): A replacement for
Barry Warsaw <barry@python.org>
parents:
8381
diff
changeset
|
2182 |
| 2018 | 2183 (defun py-shift-region (start end count) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2184 "Indent lines from START to END by COUNT spaces." |
| 2018 | 2185 (save-excursion |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2186 (goto-char end) |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2187 (beginning-of-line) |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2188 (setq end (point)) |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2189 (goto-char start) |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2190 (beginning-of-line) |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2191 (setq start (point)) |
| 2018 | 2192 (indent-rigidly start end count))) |
| 2193 | |
| 2194 (defun py-shift-region-left (start end &optional count) | |
| 2195 "Shift region of Python code to the left. | |
| 2196 The lines from the line containing the start of the current region up | |
| 2197 to (but not including) the line containing the end of the region are | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2198 shifted to the left, by `py-indent-offset' columns. |
| 2018 | 2199 |
| 2200 If a prefix argument is given, the region is instead shifted by that | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2201 many columns. With no active region, dedent only the current line. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2202 You cannot dedent the region if any line is already at column zero." |
|
3743
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2203 (interactive |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2204 (let ((p (point)) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2205 (m (mark)) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2206 (arg current-prefix-arg)) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2207 (if m |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2208 (list (min p m) (max p m) arg) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2209 (list p (save-excursion (forward-line 1) (point)) arg)))) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2210 ;; if any line is at column zero, don't shift the region |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2211 (save-excursion |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2212 (goto-char start) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2213 (while (< (point) end) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2214 (back-to-indentation) |
|
3796
ec6963c3741c
(py-shift-region-left): When checking for left edged code, watch for
Barry Warsaw <barry@python.org>
parents:
3747
diff
changeset
|
2215 (if (and (zerop (current-column)) |
|
ec6963c3741c
(py-shift-region-left): When checking for left edged code, watch for
Barry Warsaw <barry@python.org>
parents:
3747
diff
changeset
|
2216 (not (looking-at "\\s *$"))) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2217 (error "Region is at left edge")) |
|
3743
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2218 (forward-line 1))) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2219 (py-shift-region start end (- (prefix-numeric-value |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2220 (or count py-indent-offset)))) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2221 (py-keep-region-active)) |
| 2018 | 2222 |
| 2223 (defun py-shift-region-right (start end &optional count) | |
| 2224 "Shift region of Python code to the right. | |
| 2225 The lines from the line containing the start of the current region up | |
| 2226 to (but not including) the line containing the end of the region are | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2227 shifted to the right, by `py-indent-offset' columns. |
| 2018 | 2228 |
| 2229 If a prefix argument is given, the region is instead shifted by that | |
|
3743
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2230 many columns. With no active region, indent only the current line." |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2231 (interactive |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2232 (let ((p (point)) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2233 (m (mark)) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2234 (arg current-prefix-arg)) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2235 (if m |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2236 (list (min p m) (max p m) arg) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2237 (list p (save-excursion (forward-line 1) (point)) arg)))) |
| 2018 | 2238 (py-shift-region start end (prefix-numeric-value |
|
3743
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2239 (or count py-indent-offset))) |
|
b207876df29a
(py-shift-region-left, py-shift-region-right, py-indent-right,
Barry Warsaw <barry@python.org>
parents:
3488
diff
changeset
|
2240 (py-keep-region-active)) |
| 2018 | 2241 |
| 2242 (defun py-indent-region (start end &optional indent-offset) | |
| 2243 "Reindent a region of Python code. | |
|
3445
07977bf0d997
(py-comment-region): obsoleted by comment-region
Barry Warsaw <barry@python.org>
parents:
3436
diff
changeset
|
2244 |
| 2018 | 2245 The lines from the line containing the start of the current region up |
| 2246 to (but not including) the line containing the end of the region are | |
| 2247 reindented. If the first line of the region has a non-whitespace | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2248 character in the first column, the first line is left alone and the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2249 rest of the region is reindented with respect to it. Else the entire |
|
3445
07977bf0d997
(py-comment-region): obsoleted by comment-region
Barry Warsaw <barry@python.org>
parents:
3436
diff
changeset
|
2250 region is reindented with respect to the (closest code or indenting |
|
07977bf0d997
(py-comment-region): obsoleted by comment-region
Barry Warsaw <barry@python.org>
parents:
3436
diff
changeset
|
2251 comment) statement immediately preceding the region. |
| 2018 | 2252 |
| 2253 This is useful when code blocks are moved or yanked, when enclosing | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2254 control structures are introduced or removed, or to reformat code |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2255 using a new value for the indentation offset. |
| 2018 | 2256 |
| 2257 If a numeric prefix argument is given, it will be used as the value of | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2258 the indentation offset. Else the value of `py-indent-offset' will be |
| 2018 | 2259 used. |
| 2260 | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2261 Warning: The region must be consistently indented before this function |
| 2018 | 2262 is called! This function does not compute proper indentation from |
| 2263 scratch (that's impossible in Python), it merely adjusts the existing | |
| 2264 indentation to be correct in context. | |
| 2265 | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2266 Warning: This function really has no idea what to do with |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2267 non-indenting comment lines, and shifts them as if they were indenting |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2268 comment lines. Fixing this appears to require telepathy. |
| 2018 | 2269 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2270 Special cases: whitespace is deleted from blank lines; continuation |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2271 lines are shifted by the same amount their initial line was shifted, |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2272 in order to preserve their relative indentation with respect to their |
| 2018 | 2273 initial line; and comment lines beginning in column 1 are ignored." |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2274 (interactive "*r\nP") ; region; raw prefix arg |
| 2018 | 2275 (save-excursion |
| 2276 (goto-char end) (beginning-of-line) (setq end (point-marker)) | |
| 2277 (goto-char start) (beginning-of-line) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2278 (let ((py-indent-offset (prefix-numeric-value |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2279 (or indent-offset py-indent-offset))) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2280 (indents '(-1)) ; stack of active indent levels |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2281 (target-column 0) ; column to which to indent |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2282 (base-shifted-by 0) ; amount last base line was shifted |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2283 (indent-base (if (looking-at "[ \t\n]") |
|
4479
2343803318e4
(py-indent-line): take an optional universal argument which says to
Barry Warsaw <barry@python.org>
parents:
4346
diff
changeset
|
2284 (py-compute-indentation t) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2285 0)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2286 ci) |
| 2018 | 2287 (while (< (point) end) |
| 2288 (setq ci (current-indentation)) | |
| 2289 ;; figure out appropriate target column | |
| 2290 (cond | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2291 ((or (eq (following-char) ?#) ; comment in column 1 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2292 (looking-at "[ \t]*$")) ; entirely blank |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2293 (setq target-column 0)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2294 ((py-continuation-line-p) ; shift relative to base line |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2295 (setq target-column (+ ci base-shifted-by))) |
| 2018 | 2296 (t ; new base line |
| 2297 (if (> ci (car indents)) ; going deeper; push it | |
| 2298 (setq indents (cons ci indents)) | |
| 2299 ;; else we should have seen this indent before | |
| 2300 (setq indents (memq ci indents)) ; pop deeper indents | |
| 2301 (if (null indents) | |
| 2302 (error "Bad indentation in region, at line %d" | |
| 2303 (save-restriction | |
| 2304 (widen) | |
| 2305 (1+ (count-lines 1 (point))))))) | |
| 2306 (setq target-column (+ indent-base | |
| 2307 (* py-indent-offset | |
| 2308 (- (length indents) 2)))) | |
| 2309 (setq base-shifted-by (- target-column ci)))) | |
| 2310 ;; shift as needed | |
| 2311 (if (/= ci target-column) | |
| 2312 (progn | |
| 2313 (delete-horizontal-space) | |
| 2314 (indent-to target-column))) | |
| 2315 (forward-line 1)))) | |
| 2316 (set-marker end nil)) | |
| 2317 | |
|
3919
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2318 (defun py-comment-region (beg end &optional arg) |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2319 "Like `comment-region' but uses double hash (`#') comment starter." |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2320 (interactive "r\nP") |
| 3926 | 2321 (let ((comment-start py-block-comment-prefix)) |
|
3919
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2322 (comment-region beg end arg))) |
|
f487793d6018
(py-mode): comment-start is now "# " so indent-for-comment does the
Barry Warsaw <barry@python.org>
parents:
3905
diff
changeset
|
2323 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2324 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2325 ;; Functions for moving point |
| 2018 | 2326 (defun py-previous-statement (count) |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2327 "Go to the start of the COUNTth preceding Python statement. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2328 By default, goes to the previous statement. If there is no such |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2329 statement, goes to the first statement. Return count of statements |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2330 left to move. `Statements' do not include blank, comment, or |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2331 continuation lines." |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2332 (interactive "p") ; numeric prefix arg |
| 2018 | 2333 (if (< count 0) (py-next-statement (- count)) |
| 2334 (py-goto-initial-line) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2335 (let (start) |
| 2018 | 2336 (while (and |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2337 (setq start (point)) ; always true -- side effect |
| 2018 | 2338 (> count 0) |
| 2339 (zerop (forward-line -1)) | |
| 2340 (py-goto-statement-at-or-above)) | |
| 2341 (setq count (1- count))) | |
| 2342 (if (> count 0) (goto-char start))) | |
| 2343 count)) | |
| 2344 | |
| 2345 (defun py-next-statement (count) | |
| 2346 "Go to the start of next Python statement. | |
| 2347 If the statement at point is the i'th Python statement, goes to the | |
| 2348 start of statement i+COUNT. If there is no such statement, goes to the | |
| 2349 last statement. Returns count of statements left to move. `Statements' | |
| 2350 do not include blank, comment, or continuation lines." | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2351 (interactive "p") ; numeric prefix arg |
| 2018 | 2352 (if (< count 0) (py-previous-statement (- count)) |
| 2353 (beginning-of-line) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2354 (let (start) |
| 2018 | 2355 (while (and |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2356 (setq start (point)) ; always true -- side effect |
| 2018 | 2357 (> count 0) |
| 2358 (py-goto-statement-below)) | |
| 2359 (setq count (1- count))) | |
| 2360 (if (> count 0) (goto-char start))) | |
| 2361 count)) | |
| 2362 | |
| 2363 (defun py-goto-block-up (&optional nomark) | |
| 2364 "Move up to start of current block. | |
| 2365 Go to the statement that starts the smallest enclosing block; roughly | |
| 2366 speaking, this will be the closest preceding statement that ends with a | |
| 2367 colon and is indented less than the statement you started on. If | |
| 2368 successful, also sets the mark to the starting point. | |
| 2369 | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2370 `\\[py-mark-block]' can be used afterward to mark the whole code |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2371 block, if desired. |
| 2018 | 2372 |
| 2373 If called from a program, the mark will not be set if optional argument | |
| 2374 NOMARK is not nil." | |
| 2375 (interactive) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2376 (let ((start (point)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2377 (found nil) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2378 initial-indent) |
| 2018 | 2379 (py-goto-initial-line) |
| 2380 ;; if on blank or non-indenting comment line, use the preceding stmt | |
| 2381 (if (looking-at "[ \t]*\\($\\|#[^ \t\n]\\)") | |
| 2382 (progn | |
| 2383 (py-goto-statement-at-or-above) | |
| 2384 (setq found (py-statement-opens-block-p)))) | |
| 2385 ;; search back for colon line indented less | |
| 2386 (setq initial-indent (current-indentation)) | |
| 2387 (if (zerop initial-indent) | |
| 2388 ;; force fast exit | |
| 2389 (goto-char (point-min))) | |
| 2390 (while (not (or found (bobp))) | |
| 2391 (setq found | |
| 2392 (and | |
| 2393 (re-search-backward ":[ \t]*\\($\\|[#\\]\\)" nil 'move) | |
| 2394 (or (py-goto-initial-line) t) ; always true -- side effect | |
| 2395 (< (current-indentation) initial-indent) | |
| 2396 (py-statement-opens-block-p)))) | |
| 2397 (if found | |
| 2398 (progn | |
| 2399 (or nomark (push-mark start)) | |
| 2400 (back-to-indentation)) | |
| 2401 (goto-char start) | |
| 2402 (error "Enclosing block not found")))) | |
| 2403 | |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2404 (defun py-beginning-of-def-or-class (&optional class count) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2405 "Move point to start of `def' or `class'. |
| 2018 | 2406 |
| 2407 Searches back for the closest preceding `def'. If you supply a prefix | |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2408 arg, looks for a `class' instead. The docs below assume the `def' |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2409 case; just substitute `class' for `def' for the other case. |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2410 Programmatically, if CLASS is `either', then moves to either `class' |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2411 or `def'. |
| 2018 | 2412 |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2413 When second optional argument is given programmatically, move to the |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2414 COUNTth start of `def'. |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2415 |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2416 If point is in a `def' statement already, and after the `d', simply |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2417 moves point to the start of the statement. |
| 2018 | 2418 |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2419 Otherwise (i.e. when point is not in a `def' statement, or at or |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2420 before the `d' of a `def' statement), searches for the closest |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2421 preceding `def' statement, and leaves point at its start. If no such |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2422 statement can be found, leaves point at the start of the buffer. |
| 2018 | 2423 |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2424 Returns t iff a `def' statement is found by these rules. |
| 2018 | 2425 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2426 Note that doing this command repeatedly will take you closer to the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2427 start of the buffer each time. |
| 2018 | 2428 |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2429 To mark the current `def', see `\\[py-mark-def-or-class]'." |
| 2018 | 2430 (interactive "P") ; raw prefix arg |
|
9457
54422b46f6d1
#XEmacs 21 now supports Imenu, so I am able to test (and fix) some
Barry Warsaw <barry@python.org>
parents:
9456
diff
changeset
|
2431 (setq count (or count 1)) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2432 (let ((at-or-before-p (<= (current-column) (current-indentation))) |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2433 (start-of-line (goto-char (py-point 'bol))) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2434 (start-of-stmt (goto-char (py-point 'bos))) |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2435 (start-re (cond ((eq class 'either) "^[ \t]*\\(class\\|def\\)\\>") |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2436 (class "^[ \t]*class\\>") |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2437 (t "^[ \t]*def\\>"))) |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2438 ) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2439 ;; searching backward |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2440 (if (and (< 0 count) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2441 (or (/= start-of-stmt start-of-line) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2442 (not at-or-before-p))) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2443 (end-of-line)) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2444 ;; search forward |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2445 (if (and (> 0 count) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2446 (zerop (current-column)) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2447 (looking-at start-re)) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2448 (end-of-line)) |
|
11144
41fcb40e841f
(py-beginning-of-def-or-class): Only move to match-beginning if the
Barry Warsaw <barry@python.org>
parents:
10918
diff
changeset
|
2449 (if (re-search-backward start-re nil 'move count) |
|
41fcb40e841f
(py-beginning-of-def-or-class): Only move to match-beginning if the
Barry Warsaw <barry@python.org>
parents:
10918
diff
changeset
|
2450 (goto-char (match-beginning 0))))) |
| 2018 | 2451 |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2452 ;; Backwards compatibility |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2453 (defalias 'beginning-of-python-def-or-class 'py-beginning-of-def-or-class) |
| 2018 | 2454 |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2455 (defun py-end-of-def-or-class (&optional class count) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2456 "Move point beyond end of `def' or `class' body. |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2457 |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2458 By default, looks for an appropriate `def'. If you supply a prefix |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2459 arg, looks for a `class' instead. The docs below assume the `def' |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2460 case; just substitute `class' for `def' for the other case. |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2461 Programmatically, if CLASS is `either', then moves to either `class' |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2462 or `def'. |
| 2018 | 2463 |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2464 When second optional argument is given programmatically, move to the |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2465 COUNTth end of `def'. |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2466 |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2467 If point is in a `def' statement already, this is the `def' we use. |
| 2018 | 2468 |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2469 Else, if the `def' found by `\\[py-beginning-of-def-or-class]' |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2470 contains the statement you started on, that's the `def' we use. |
| 2018 | 2471 |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2472 Otherwise, we search forward for the closest following `def', and use that. |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2473 |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2474 If a `def' can be found by these rules, point is moved to the start of |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2475 the line immediately following the `def' block, and the position of the |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2476 start of the `def' is returned. |
| 2018 | 2477 |
| 2478 Else point is moved to the end of the buffer, and nil is returned. | |
| 2479 | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2480 Note that doing this command repeatedly will take you closer to the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2481 end of the buffer each time. |
| 2018 | 2482 |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2483 To mark the current `def', see `\\[py-mark-def-or-class]'." |
| 2018 | 2484 (interactive "P") ; raw prefix arg |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2485 (if (and count (/= count 1)) |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2486 (py-beginning-of-def-or-class (- 1 count))) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2487 (let ((start (progn (py-goto-initial-line) (point))) |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2488 (which (cond ((eq class 'either) "\\(class\\|def\\)") |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2489 (class "class") |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2490 (t "def"))) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2491 (state 'not-found)) |
| 2018 | 2492 ;; move point to start of appropriate def/class |
| 2493 (if (looking-at (concat "[ \t]*" which "\\>")) ; already on one | |
| 2494 (setq state 'at-beginning) | |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2495 ;; else see if py-beginning-of-def-or-class hits container |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2496 (if (and (py-beginning-of-def-or-class class) |
| 2018 | 2497 (progn (py-goto-beyond-block) |
| 2498 (> (point) start))) | |
| 2499 (setq state 'at-end) | |
| 2500 ;; else search forward | |
| 2501 (goto-char start) | |
| 2502 (if (re-search-forward (concat "^[ \t]*" which "\\>") nil 'move) | |
| 2503 (progn (setq state 'at-beginning) | |
| 2504 (beginning-of-line))))) | |
| 2505 (cond | |
| 2506 ((eq state 'at-beginning) (py-goto-beyond-block) t) | |
| 2507 ((eq state 'at-end) t) | |
| 2508 ((eq state 'not-found) nil) | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2509 (t (error "Internal error in `py-end-of-def-or-class'"))))) |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2510 |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2511 ;; Backwards compabitility |
| 8378 | 2512 (defalias 'end-of-python-def-or-class 'py-end-of-def-or-class) |
| 2018 | 2513 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2514 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2515 ;; Functions for marking regions |
| 2018 | 2516 (defun py-mark-block (&optional extend just-move) |
| 2517 "Mark following block of lines. With prefix arg, mark structure. | |
| 2518 Easier to use than explain. It sets the region to an `interesting' | |
| 2519 block of succeeding lines. If point is on a blank line, it goes down to | |
| 2520 the next non-blank line. That will be the start of the region. The end | |
| 2521 of the region depends on the kind of line at the start: | |
| 2522 | |
| 2523 - If a comment, the region will include all succeeding comment lines up | |
| 2524 to (but not including) the next non-comment line (if any). | |
| 2525 | |
| 2526 - Else if a prefix arg is given, and the line begins one of these | |
| 2527 structures: | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2528 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2529 if elif else try except finally for while def class |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2530 |
| 2018 | 2531 the region will be set to the body of the structure, including |
| 2532 following blocks that `belong' to it, but excluding trailing blank | |
| 2533 and comment lines. E.g., if on a `try' statement, the `try' block | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2534 and all (if any) of the following `except' and `finally' blocks |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2535 that belong to the `try' structure will be in the region. Ditto |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2536 for if/elif/else, for/else and while/else structures, and (a bit |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2537 degenerate, since they're always one-block structures) def and |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2538 class blocks. |
| 2018 | 2539 |
| 2540 - Else if no prefix argument is given, and the line begins a Python | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2541 block (see list above), and the block is not a `one-liner' (i.e., |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2542 the statement ends with a colon, not with code), the region will |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2543 include all succeeding lines up to (but not including) the next |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2544 code statement (if any) that's indented no more than the starting |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2545 line, except that trailing blank and comment lines are excluded. |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2546 E.g., if the starting line begins a multi-statement `def' |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2547 structure, the region will be set to the full function definition, |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2548 but without any trailing `noise' lines. |
| 2018 | 2549 |
| 2550 - Else the region will include all succeeding lines up to (but not | |
| 2551 including) the next blank line, or code or indenting-comment line | |
| 2552 indented strictly less than the starting line. Trailing indenting | |
| 2553 comment lines are included in this case, but not trailing blank | |
| 2554 lines. | |
| 2555 | |
| 2556 A msg identifying the location of the mark is displayed in the echo | |
| 2557 area; or do `\\[exchange-point-and-mark]' to flip down to the end. | |
| 2558 | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2559 If called from a program, optional argument EXTEND plays the role of |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2560 the prefix arg, and if optional argument JUST-MOVE is not nil, just |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2561 moves to the end of the block (& does not set mark or display a msg)." |
| 2018 | 2562 (interactive "P") ; raw prefix arg |
| 2563 (py-goto-initial-line) | |
| 2564 ;; skip over blank lines | |
| 2565 (while (and | |
| 2566 (looking-at "[ \t]*$") ; while blank line | |
| 2567 (not (eobp))) ; & somewhere to go | |
| 2568 (forward-line 1)) | |
| 2569 (if (eobp) | |
| 2570 (error "Hit end of buffer without finding a non-blank stmt")) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2571 (let ((initial-pos (point)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2572 (initial-indent (current-indentation)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2573 last-pos ; position of last stmt in region |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2574 (followers |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2575 '((if elif else) (elif elif else) (else) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2576 (try except finally) (except except) (finally) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2577 (for else) (while else) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2578 (def) (class) ) ) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2579 first-symbol next-symbol) |
| 2018 | 2580 |
| 2581 (cond | |
| 2582 ;; if comment line, suck up the following comment lines | |
| 2583 ((looking-at "[ \t]*#") | |
| 2584 (re-search-forward "^[ \t]*[^ \t#]" nil 'move) ; look for non-comment | |
| 2585 (re-search-backward "^[ \t]*#") ; and back to last comment in block | |
| 2586 (setq last-pos (point))) | |
| 2587 | |
| 2588 ;; else if line is a block line and EXTEND given, suck up | |
| 2589 ;; the whole structure | |
| 2590 ((and extend | |
| 2591 (setq first-symbol (py-suck-up-first-keyword) ) | |
| 2592 (assq first-symbol followers)) | |
| 2593 (while (and | |
| 2594 (or (py-goto-beyond-block) t) ; side effect | |
| 2595 (forward-line -1) ; side effect | |
| 2596 (setq last-pos (point)) ; side effect | |
| 2597 (py-goto-statement-below) | |
| 2598 (= (current-indentation) initial-indent) | |
| 2599 (setq next-symbol (py-suck-up-first-keyword)) | |
| 2600 (memq next-symbol (cdr (assq first-symbol followers)))) | |
| 2601 (setq first-symbol next-symbol))) | |
| 2602 | |
| 2603 ;; else if line *opens* a block, search for next stmt indented <= | |
| 2604 ((py-statement-opens-block-p) | |
| 2605 (while (and | |
| 2606 (setq last-pos (point)) ; always true -- side effect | |
| 2607 (py-goto-statement-below) | |
| 2608 (> (current-indentation) initial-indent)) | |
| 2609 nil)) | |
| 2610 | |
| 2611 ;; else plain code line; stop at next blank line, or stmt or | |
| 2612 ;; indenting comment line indented < | |
| 2613 (t | |
| 2614 (while (and | |
| 2615 (setq last-pos (point)) ; always true -- side effect | |
| 2616 (or (py-goto-beyond-final-line) t) | |
| 2617 (not (looking-at "[ \t]*$")) ; stop at blank line | |
| 2618 (or | |
| 2619 (>= (current-indentation) initial-indent) | |
| 2620 (looking-at "[ \t]*#[^ \t\n]"))) ; ignore non-indenting # | |
| 2621 nil))) | |
| 2622 | |
| 2623 ;; skip to end of last stmt | |
| 2624 (goto-char last-pos) | |
| 2625 (py-goto-beyond-final-line) | |
| 2626 | |
| 2627 ;; set mark & display | |
| 2628 (if just-move | |
| 2629 () ; just return | |
| 2630 (push-mark (point) 'no-msg) | |
| 2631 (forward-line -1) | |
| 2632 (message "Mark set after: %s" (py-suck-up-leading-text)) | |
| 2633 (goto-char initial-pos)))) | |
| 2634 | |
|
6559
1a233be5fc17
(mark-python-def-or-class): Renamed to py-mark-def-or-class globally.
Barry Warsaw <barry@python.org>
parents:
6556
diff
changeset
|
2635 (defun py-mark-def-or-class (&optional class) |
| 2018 | 2636 "Set region to body of def (or class, with prefix arg) enclosing point. |
| 2637 Pushes the current mark, then point, on the mark ring (all language | |
| 2638 modes do this, but although it's handy it's never documented ...). | |
| 2639 | |
| 2640 In most Emacs language modes, this function bears at least a | |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2641 hallucinogenic resemblance to `\\[py-end-of-def-or-class]' and |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
2642 `\\[py-beginning-of-def-or-class]'. |
| 2018 | 2643 |
| 2644 And in earlier versions of Python mode, all 3 were tightly connected. | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2645 Turned out that was more confusing than useful: the `goto start' and |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2646 `goto end' commands are usually used to search through a file, and |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2647 people expect them to act a lot like `search backward' and `search |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2648 forward' string-search commands. But because Python `def' and `class' |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2649 can nest to arbitrary levels, finding the smallest def containing |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2650 point cannot be done via a simple backward search: the def containing |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2651 point may not be the closest preceding def, or even the closest |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2652 preceding def that's indented less. The fancy algorithm required is |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2653 appropriate for the usual uses of this `mark' command, but not for the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2654 `goto' variations. |
| 2018 | 2655 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2656 So the def marked by this command may not be the one either of the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2657 `goto' commands find: If point is on a blank or non-indenting comment |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2658 line, moves back to start of the closest preceding code statement or |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2659 indenting comment line. If this is a `def' statement, that's the def |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2660 we use. Else searches for the smallest enclosing `def' block and uses |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2661 that. Else signals an error. |
| 2018 | 2662 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2663 When an enclosing def is found: The mark is left immediately beyond |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2664 the last line of the def block. Point is left at the start of the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2665 def, except that: if the def is preceded by a number of comment lines |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2666 followed by (at most) one optional blank line, point is left at the |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2667 start of the comments; else if the def is preceded by a blank line, |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2668 point is left at its start. |
| 2018 | 2669 |
| 2670 The intent is to mark the containing def/class and its associated | |
| 2671 documentation, to make moving and duplicating functions and classes | |
| 2672 pleasant." | |
| 2673 (interactive "P") ; raw prefix arg | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2674 (let ((start (point)) |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2675 (which (cond ((eq class 'either) "\\(class\\|def\\)") |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2676 (class "class") |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2677 (t "def")))) |
| 2018 | 2678 (push-mark start) |
| 2679 (if (not (py-go-up-tree-to-keyword which)) | |
| 2680 (progn (goto-char start) | |
|
8629
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2681 (error "Enclosing %s not found" |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2682 (if (eq class 'either) |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2683 "def or class" |
|
239492b34f68
(py-beginning-of-def-or-class, py-end-of-def-or-class,
Barry Warsaw <barry@python.org>
parents:
8628
diff
changeset
|
2684 which))) |
| 2018 | 2685 ;; else enclosing def/class found |
| 2686 (setq start (point)) | |
| 2687 (py-goto-beyond-block) | |
| 2688 (push-mark (point)) | |
| 2689 (goto-char start) | |
| 2690 (if (zerop (forward-line -1)) ; if there is a preceding line | |
| 2691 (progn | |
| 2692 (if (looking-at "[ \t]*$") ; it's blank | |
| 2693 (setq start (point)) ; so reset start point | |
| 2694 (goto-char start)) ; else try again | |
| 2695 (if (zerop (forward-line -1)) | |
| 2696 (if (looking-at "[ \t]*#") ; a comment | |
| 2697 ;; look back for non-comment line | |
| 2698 ;; tricky: note that the regexp matches a blank | |
| 2699 ;; line, cuz \n is in the 2nd character class | |
| 2700 (and | |
| 2701 (re-search-backward "^[ \t]*[^ \t#]" nil 'move) | |
| 2702 (forward-line 1)) | |
| 2703 ;; no comment, so go back | |
|
6669
2f5c8374825c
(py-mark-def-or-class): Added an exchange-point-and-mark and a
Barry Warsaw <barry@python.org>
parents:
6668
diff
changeset
|
2704 (goto-char start))))))) |
|
2f5c8374825c
(py-mark-def-or-class): Added an exchange-point-and-mark and a
Barry Warsaw <barry@python.org>
parents:
6668
diff
changeset
|
2705 (exchange-point-and-mark) |
|
2f5c8374825c
(py-mark-def-or-class): Added an exchange-point-and-mark and a
Barry Warsaw <barry@python.org>
parents:
6668
diff
changeset
|
2706 (py-keep-region-active)) |
| 2018 | 2707 |
|
3811
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2708 ;; ripped from cc-mode |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2709 (defun py-forward-into-nomenclature (&optional arg) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2710 "Move forward to end of a nomenclature section or word. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2711 With \\[universal-argument] (programmatically, optional argument ARG), |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
2712 do it that many times. |
|
3811
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2713 |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2714 A `nomenclature' is a fancy way of saying AWordWithMixedCaseNotUnderscores." |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2715 (interactive "p") |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2716 (let ((case-fold-search nil)) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2717 (if (> arg 0) |
|
3937
decd13f6629d
(py-forward-into-nomenclature): Slightly better regex for stopping on
Barry Warsaw <barry@python.org>
parents:
3934
diff
changeset
|
2718 (re-search-forward |
|
decd13f6629d
(py-forward-into-nomenclature): Slightly better regex for stopping on
Barry Warsaw <barry@python.org>
parents:
3934
diff
changeset
|
2719 "\\(\\W\\|[_]\\)*\\([A-Z]*[a-z0-9]*\\)" |
|
decd13f6629d
(py-forward-into-nomenclature): Slightly better regex for stopping on
Barry Warsaw <barry@python.org>
parents:
3934
diff
changeset
|
2720 (point-max) t arg) |
|
3811
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2721 (while (and (< arg 0) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2722 (re-search-backward |
|
3937
decd13f6629d
(py-forward-into-nomenclature): Slightly better regex for stopping on
Barry Warsaw <barry@python.org>
parents:
3934
diff
changeset
|
2723 "\\(\\W\\|[a-z0-9]\\)[A-Z]+\\|\\(\\W\\|[_]\\)\\w+" |
|
3811
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2724 (point-min) 0)) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2725 (forward-char 1) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2726 (setq arg (1+ arg))))) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2727 (py-keep-region-active)) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2728 |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2729 (defun py-backward-into-nomenclature (&optional arg) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2730 "Move backward to beginning of a nomenclature section or word. |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2731 With optional ARG, move that many times. If ARG is negative, move |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2732 forward. |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2733 |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2734 A `nomenclature' is a fancy way of saying AWordWithMixedCaseNotUnderscores." |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2735 (interactive "p") |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2736 (py-forward-into-nomenclature (- arg)) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2737 (py-keep-region-active)) |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2738 |
|
b9a0434d2cb6
(py-forward-into-nomenclature, py-backward-into-nomenclature): New functions.
Barry Warsaw <barry@python.org>
parents:
3796
diff
changeset
|
2739 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2740 |
| 17416 | 2741 ;; pdbtrack functions |
| 2742 (defun py-pdbtrack-toggle-stack-tracking (arg) | |
| 2743 (interactive "P") | |
| 2744 (if (not (get-buffer-process (current-buffer))) | |
| 2745 (error "No process associated with buffer '%s'" (current-buffer))) | |
| 2746 ;; missing or 0 is toggle, >0 turn on, <0 turn off | |
| 2747 (if (or (not arg) | |
| 2748 (zerop (setq arg (prefix-numeric-value arg)))) | |
| 2749 (setq py-pdbtrack-do-tracking-p (not py-pdbtrack-do-tracking-p)) | |
| 2750 (setq py-pdbtrack-do-tracking-p (> arg 0))) | |
| 2751 (message "%sabled Python's pdbtrack" | |
| 2752 (if py-pdbtrack-do-tracking-p "En" "Dis"))) | |
| 2753 | |
| 2754 (defun turn-on-pdbtrack () | |
| 2755 (interactive) | |
| 2756 (py-pdbtrack-toggle-stack-tracking 1)) | |
| 2757 | |
| 2758 (defun turn-off-pdbtrack () | |
| 2759 (interactive) | |
| 2760 (py-pdbtrack-toggle-stack-tracking 0)) | |
| 2761 | |
| 2762 | |
| 2763 | |
|
23229
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2764 ;; Pychecker |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2765 (defun py-pychecker-run (command) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2766 "*Run pychecker (default on the file currently visited)." |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2767 (interactive |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2768 (let ((default |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2769 (format "%s %s %s" py-pychecker-command |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2770 (mapconcat 'identity py-pychecker-command-args " ") |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2771 (buffer-file-name)))) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2772 |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2773 (list |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2774 (read-shell-command "Run pychecker like this: " |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2775 default |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2776 py-pychecker-history)))) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2777 (save-some-buffers (not py-ask-about-save) nil) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2778 (compile command)) |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2779 |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2780 |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2781 |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2782 ;; pydoc commands. The guts of this function is stolen from XEmacs's |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2783 ;; symbol-near-point, but without the useless regexp-quote call on the |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2784 ;; results, nor the interactive bit. Also, we've added the temporary |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2785 ;; syntax table setting, which Skip originally had broken out into a |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2786 ;; separate function. Note that Emacs doesn't have the original |
|
2b47d0dcfa66
Some contributions and ideas by Alexander Schmolck: add a keybinding
Barry Warsaw <barry@python.org>
parents:
23224
diff
changeset
|
2787 ;; function. |
|
23224
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2788 (defun py-symbol-near-point () |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2789 "Return the first textual item to the nearest point." |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2790 ;; alg stolen from etag.el |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2791 (save-excursion |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2792 (with-syntax-table py-dotted-expression-syntax-table |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2793 (if (or (bobp) (not (memq (char-syntax (char-before)) '(?w ?_)))) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2794 (while (not (looking-at "\\sw\\|\\s_\\|\\'")) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2795 (forward-char 1))) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2796 (while (looking-at "\\sw\\|\\s_") |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2797 (forward-char 1)) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2798 (if (re-search-backward "\\sw\\|\\s_" nil t) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2799 (progn (forward-char 1) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2800 (buffer-substring (point) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2801 (progn (forward-sexp -1) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2802 (while (looking-at "\\s'") |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2803 (forward-char 1)) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2804 (point)))) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2805 nil)))) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2806 |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2807 (defun py-help-at-point () |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2808 "Get help from Python based on the symbol nearest point." |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2809 (interactive) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2810 (let* ((sym (py-symbol-near-point)) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2811 (base (substring sym 0 (or (search "." sym :from-end t) 0))) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2812 cmd) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2813 (if (not (equal base "")) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2814 (setq cmd (concat "import " base "\n"))) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2815 (setq cmd (concat "import pydoc\n" |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2816 cmd |
|
23230
863125545301
Merge in Skip's last few updates w.r.t. py-help-at-point:
Barry Warsaw <barry@python.org>
parents:
23229
diff
changeset
|
2817 "try: pydoc.help('" sym "')\n" |
|
23224
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2818 "except: print 'No help available on:', \"" sym "\"")) |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2819 (message cmd) |
|
23230
863125545301
Merge in Skip's last few updates w.r.t. py-help-at-point:
Barry Warsaw <barry@python.org>
parents:
23229
diff
changeset
|
2820 (py-execute-string cmd) |
|
863125545301
Merge in Skip's last few updates w.r.t. py-help-at-point:
Barry Warsaw <barry@python.org>
parents:
23229
diff
changeset
|
2821 (set-buffer "*Python Output*") |
|
863125545301
Merge in Skip's last few updates w.r.t. py-help-at-point:
Barry Warsaw <barry@python.org>
parents:
23229
diff
changeset
|
2822 ;; BAW: Should we really be leaving the output buffer in help-mode? |
|
863125545301
Merge in Skip's last few updates w.r.t. py-help-at-point:
Barry Warsaw <barry@python.org>
parents:
23229
diff
changeset
|
2823 (help-mode))) |
|
23224
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2824 |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2825 |
|
ed5d75912d60
Skip Montanaro's contribution (slightly mod'd by Barry) to provide a
Barry Warsaw <barry@python.org>
parents:
23223
diff
changeset
|
2826 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2827 ;; Documentation functions |
| 2018 | 2828 |
| 2829 ;; dump the long form of the mode blurb; does the usual doc escapes, | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2830 ;; plus lines of the form ^[vc]:name$ to suck variable & command docs |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2831 ;; out of the right places, along with the keys they're on & current |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2832 ;; values |
| 2018 | 2833 (defun py-dump-help-string (str) |
| 2834 (with-output-to-temp-buffer "*Help*" | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2835 (let ((locals (buffer-local-variables)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2836 funckind funcname func funcdoc |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2837 (start 0) mstart end |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2838 keys ) |
| 2018 | 2839 (while (string-match "^%\\([vc]\\):\\(.+\\)\n" str start) |
| 2840 (setq mstart (match-beginning 0) end (match-end 0) | |
| 2841 funckind (substring str (match-beginning 1) (match-end 1)) | |
| 2842 funcname (substring str (match-beginning 2) (match-end 2)) | |
| 2843 func (intern funcname)) | |
| 2844 (princ (substitute-command-keys (substring str start mstart))) | |
| 2845 (cond | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2846 ((equal funckind "c") ; command |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2847 (setq funcdoc (documentation func) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2848 keys (concat |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2849 "Key(s): " |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2850 (mapconcat 'key-description |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2851 (where-is-internal func py-mode-map) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2852 ", ")))) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2853 ((equal funckind "v") ; variable |
|
4189
03f2c21aecaf
(py-dump-help-string): Use documentation-property to get docstring.
Barry Warsaw <barry@python.org>
parents:
4188
diff
changeset
|
2854 (setq funcdoc (documentation-property func 'variable-documentation) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2855 keys (if (assq func locals) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2856 (concat |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2857 "Local/Global values: " |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2858 (prin1-to-string (symbol-value func)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2859 " / " |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2860 (prin1-to-string (default-value func))) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2861 (concat |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2862 "Value: " |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2863 (prin1-to-string (symbol-value func)))))) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2864 (t ; unexpected |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2865 (error "Error in py-dump-help-string, tag `%s'" funckind))) |
| 2018 | 2866 (princ (format "\n-> %s:\t%s\t%s\n\n" |
| 2867 (if (equal funckind "c") "Command" "Variable") | |
| 2868 funcname keys)) | |
| 2869 (princ funcdoc) | |
| 2870 (terpri) | |
| 2871 (setq start end)) | |
| 2872 (princ (substitute-command-keys (substring str start)))) | |
| 2873 (print-help-return-message))) | |
| 2874 | |
| 2875 (defun py-describe-mode () | |
| 2876 "Dump long form of Python-mode docs." | |
| 2877 (interactive) | |
| 2878 (py-dump-help-string "Major mode for editing Python files. | |
| 2879 Knows about Python indentation, tokens, comments and continuation lines. | |
| 2880 Paragraphs are separated by blank lines only. | |
| 2881 | |
| 2882 Major sections below begin with the string `@'; specific function and | |
| 2883 variable docs begin with `->'. | |
| 2884 | |
| 2885 @EXECUTING PYTHON CODE | |
| 2886 | |
| 8378 | 2887 \\[py-execute-import-or-reload]\timports or reloads the file in the Python interpreter |
| 2018 | 2888 \\[py-execute-buffer]\tsends the entire buffer to the Python interpreter |
| 2889 \\[py-execute-region]\tsends the current region | |
| 8378 | 2890 \\[py-execute-def-or-class]\tsends the current function or class definition |
| 2891 \\[py-execute-string]\tsends an arbitrary string | |
| 2018 | 2892 \\[py-shell]\tstarts a Python interpreter window; this will be used by |
| 8378 | 2893 \tsubsequent Python execution commands |
| 2894 %c:py-execute-import-or-reload | |
| 2018 | 2895 %c:py-execute-buffer |
| 2896 %c:py-execute-region | |
| 8378 | 2897 %c:py-execute-def-or-class |
| 2898 %c:py-execute-string | |
| 2018 | 2899 %c:py-shell |
| 2900 | |
| 2901 @VARIABLES | |
| 2902 | |
| 2903 py-indent-offset\tindentation increment | |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
2904 py-block-comment-prefix\tcomment string used by comment-region |
| 2018 | 2905 |
| 2906 py-python-command\tshell command to invoke Python interpreter | |
| 2907 py-temp-directory\tdirectory used for temp files (if needed) | |
| 2908 | |
| 2909 py-beep-if-tab-change\tring the bell if tab-width is changed | |
| 2910 %v:py-indent-offset | |
| 2911 %v:py-block-comment-prefix | |
| 2912 %v:py-python-command | |
| 2913 %v:py-temp-directory | |
| 2914 %v:py-beep-if-tab-change | |
| 2915 | |
| 2916 @KINDS OF LINES | |
| 2917 | |
| 2918 Each physical line in the file is either a `continuation line' (the | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2919 preceding line ends with a backslash that's not part of a comment, or |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2920 the paren/bracket/brace nesting level at the start of the line is |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2921 non-zero, or both) or an `initial line' (everything else). |
| 2018 | 2922 |
| 2923 An initial line is in turn a `blank line' (contains nothing except | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2924 possibly blanks or tabs), a `comment line' (leftmost non-blank |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2925 character is `#'), or a `code line' (everything else). |
| 2018 | 2926 |
| 2927 Comment Lines | |
| 2928 | |
| 2929 Although all comment lines are treated alike by Python, Python mode | |
| 2930 recognizes two kinds that act differently with respect to indentation. | |
| 2931 | |
| 2932 An `indenting comment line' is a comment line with a blank, tab or | |
| 2933 nothing after the initial `#'. The indentation commands (see below) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2934 treat these exactly as if they were code lines: a line following an |
| 2018 | 2935 indenting comment line will be indented like the comment line. All |
| 2936 other comment lines (those with a non-whitespace character immediately | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2937 following the initial `#') are `non-indenting comment lines', and |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2938 their indentation is ignored by the indentation commands. |
| 2018 | 2939 |
| 2940 Indenting comment lines are by far the usual case, and should be used | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2941 whenever possible. Non-indenting comment lines are useful in cases |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2942 like these: |
| 2018 | 2943 |
| 2944 \ta = b # a very wordy single-line comment that ends up being | |
| 2945 \t #... continued onto another line | |
| 2946 | |
| 2947 \tif a == b: | |
| 2948 ##\t\tprint 'panic!' # old code we've `commented out' | |
| 2949 \t\treturn a | |
| 2950 | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2951 Since the `#...' and `##' comment lines have a non-whitespace |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2952 character following the initial `#', Python mode ignores them when |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2953 computing the proper indentation for the next line. |
| 2018 | 2954 |
| 2955 Continuation Lines and Statements | |
| 2956 | |
| 2957 The Python-mode commands generally work on statements instead of on | |
| 2958 individual lines, where a `statement' is a comment or blank line, or a | |
| 2959 code line and all of its following continuation lines (if any) | |
| 2960 considered as a single logical unit. The commands in this mode | |
| 2961 generally (when it makes sense) automatically move to the start of the | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2962 statement containing point, even if point happens to be in the middle |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
2963 of some continuation line. |
| 2018 | 2964 |
| 2965 | |
| 2966 @INDENTATION | |
| 2967 | |
| 2968 Primarily for entering new code: | |
| 2969 \t\\[indent-for-tab-command]\t indent line appropriately | |
| 2970 \t\\[py-newline-and-indent]\t insert newline, then indent | |
|
6730
9c9a87b5bb17
Removed redundant eval-when-compile.
Barry Warsaw <barry@python.org>
parents:
6726
diff
changeset
|
2971 \t\\[py-electric-backspace]\t reduce indentation, or delete single character |
| 2018 | 2972 |
| 2973 Primarily for reindenting existing code: | |
| 2974 \t\\[py-guess-indent-offset]\t guess py-indent-offset from file content; change locally | |
| 2975 \t\\[universal-argument] \\[py-guess-indent-offset]\t ditto, but change globally | |
| 2976 | |
| 2977 \t\\[py-indent-region]\t reindent region to match its context | |
| 2978 \t\\[py-shift-region-left]\t shift region left by py-indent-offset | |
| 2979 \t\\[py-shift-region-right]\t shift region right by py-indent-offset | |
| 2980 | |
| 2981 Unlike most programming languages, Python uses indentation, and only | |
| 2982 indentation, to specify block structure. Hence the indentation supplied | |
| 2983 automatically by Python-mode is just an educated guess: only you know | |
| 2984 the block structure you intend, so only you can supply correct | |
| 2985 indentation. | |
| 2986 | |
| 2987 The \\[indent-for-tab-command] and \\[py-newline-and-indent] keys try to suggest plausible indentation, based on | |
| 2988 the indentation of preceding statements. E.g., assuming | |
| 2989 py-indent-offset is 4, after you enter | |
| 2990 \tif a > 0: \\[py-newline-and-indent] | |
| 2991 the cursor will be moved to the position of the `_' (_ is not a | |
| 2992 character in the file, it's just used here to indicate the location of | |
| 2993 the cursor): | |
| 2994 \tif a > 0: | |
| 2995 \t _ | |
| 2996 If you then enter `c = d' \\[py-newline-and-indent], the cursor will move | |
| 2997 to | |
| 2998 \tif a > 0: | |
| 2999 \t c = d | |
| 3000 \t _ | |
| 3001 Python-mode cannot know whether that's what you intended, or whether | |
| 3002 \tif a > 0: | |
| 3003 \t c = d | |
| 3004 \t_ | |
| 3005 was your intent. In general, Python-mode either reproduces the | |
| 3006 indentation of the (closest code or indenting-comment) preceding | |
| 3007 statement, or adds an extra py-indent-offset blanks if the preceding | |
| 3008 statement has `:' as its last significant (non-whitespace and non- | |
| 3009 comment) character. If the suggested indentation is too much, use | |
|
6730
9c9a87b5bb17
Removed redundant eval-when-compile.
Barry Warsaw <barry@python.org>
parents:
6726
diff
changeset
|
3010 \\[py-electric-backspace] to reduce it. |
| 2018 | 3011 |
| 3012 Continuation lines are given extra indentation. If you don't like the | |
| 3013 suggested indentation, change it to something you do like, and Python- | |
| 3014 mode will strive to indent later lines of the statement in the same way. | |
| 3015 | |
| 3016 If a line is a continuation line by virtue of being in an unclosed | |
| 3017 paren/bracket/brace structure (`list', for short), the suggested | |
| 3018 indentation depends on whether the current line contains the first item | |
| 3019 in the list. If it does, it's indented py-indent-offset columns beyond | |
| 3020 the indentation of the line containing the open bracket. If you don't | |
| 3021 like that, change it by hand. The remaining items in the list will mimic | |
| 3022 whatever indentation you give to the first item. | |
| 3023 | |
| 3024 If a line is a continuation line because the line preceding it ends with | |
| 3025 a backslash, the third and following lines of the statement inherit their | |
| 3026 indentation from the line preceding them. The indentation of the second | |
| 3027 line in the statement depends on the form of the first (base) line: if | |
| 3028 the base line is an assignment statement with anything more interesting | |
| 3029 than the backslash following the leftmost assigning `=', the second line | |
| 3030 is indented two columns beyond that `='. Else it's indented to two | |
| 3031 columns beyond the leftmost solid chunk of non-whitespace characters on | |
| 3032 the base line. | |
| 3033 | |
| 3034 Warning: indent-region should not normally be used! It calls \\[indent-for-tab-command] | |
| 3035 repeatedly, and as explained above, \\[indent-for-tab-command] can't guess the block | |
| 3036 structure you intend. | |
| 3037 %c:indent-for-tab-command | |
| 3038 %c:py-newline-and-indent | |
|
6730
9c9a87b5bb17
Removed redundant eval-when-compile.
Barry Warsaw <barry@python.org>
parents:
6726
diff
changeset
|
3039 %c:py-electric-backspace |
| 2018 | 3040 |
| 3041 | |
| 3042 The next function may be handy when editing code you didn't write: | |
| 3043 %c:py-guess-indent-offset | |
| 3044 | |
| 3045 | |
| 3046 The remaining `indent' functions apply to a region of Python code. They | |
| 3047 assume the block structure (equals indentation, in Python) of the region | |
| 3048 is correct, and alter the indentation in various ways while preserving | |
| 3049 the block structure: | |
| 3050 %c:py-indent-region | |
| 3051 %c:py-shift-region-left | |
| 3052 %c:py-shift-region-right | |
| 3053 | |
| 3054 @MARKING & MANIPULATING REGIONS OF CODE | |
| 3055 | |
| 3056 \\[py-mark-block]\t mark block of lines | |
|
6559
1a233be5fc17
(mark-python-def-or-class): Renamed to py-mark-def-or-class globally.
Barry Warsaw <barry@python.org>
parents:
6556
diff
changeset
|
3057 \\[py-mark-def-or-class]\t mark smallest enclosing def |
|
1a233be5fc17
(mark-python-def-or-class): Renamed to py-mark-def-or-class globally.
Barry Warsaw <barry@python.org>
parents:
6556
diff
changeset
|
3058 \\[universal-argument] \\[py-mark-def-or-class]\t mark smallest enclosing class |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
3059 \\[comment-region]\t comment out region of code |
|
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
3060 \\[universal-argument] \\[comment-region]\t uncomment region of code |
| 2018 | 3061 %c:py-mark-block |
|
6559
1a233be5fc17
(mark-python-def-or-class): Renamed to py-mark-def-or-class globally.
Barry Warsaw <barry@python.org>
parents:
6556
diff
changeset
|
3062 %c:py-mark-def-or-class |
|
3818
3c5ca7727988
(python-mode): Added menu support, requires easymenu.
Barry Warsaw <barry@python.org>
parents:
3813
diff
changeset
|
3063 %c:comment-region |
| 2018 | 3064 |
| 3065 @MOVING POINT | |
| 3066 | |
| 3067 \\[py-previous-statement]\t move to statement preceding point | |
| 3068 \\[py-next-statement]\t move to statement following point | |
| 3069 \\[py-goto-block-up]\t move up to start of current block | |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
3070 \\[py-beginning-of-def-or-class]\t move to start of def |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
3071 \\[universal-argument] \\[py-beginning-of-def-or-class]\t move to start of class |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
3072 \\[py-end-of-def-or-class]\t move to end of def |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
3073 \\[universal-argument] \\[py-end-of-def-or-class]\t move to end of class |
| 2018 | 3074 |
| 3075 The first two move to one statement beyond the statement that contains | |
| 3076 point. A numeric prefix argument tells them to move that many | |
| 3077 statements instead. Blank lines, comment lines, and continuation lines | |
| 3078 do not count as `statements' for these commands. So, e.g., you can go | |
| 3079 to the first code statement in a file by entering | |
| 3080 \t\\[beginning-of-buffer]\t to move to the top of the file | |
| 3081 \t\\[py-next-statement]\t to skip over initial comments and blank lines | |
| 3082 Or do `\\[py-previous-statement]' with a huge prefix argument. | |
| 3083 %c:py-previous-statement | |
| 3084 %c:py-next-statement | |
| 3085 %c:py-goto-block-up | |
|
8377
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
3086 %c:py-beginning-of-def-or-class |
|
95f7c52b6399
(beginning-of-python-def-or-class): Renamed to
Barry Warsaw <barry@python.org>
parents:
8371
diff
changeset
|
3087 %c:py-end-of-def-or-class |
| 2018 | 3088 |
| 3089 @LITTLE-KNOWN EMACS COMMANDS PARTICULARLY USEFUL IN PYTHON MODE | |
| 3090 | |
| 3091 `\\[indent-new-comment-line]' is handy for entering a multi-line comment. | |
| 3092 | |
| 3093 `\\[set-selective-display]' with a `small' prefix arg is ideally suited for viewing the | |
| 3094 overall class and def structure of a module. | |
| 3095 | |
| 3096 `\\[back-to-indentation]' moves point to a line's first non-blank character. | |
| 3097 | |
| 3098 `\\[indent-relative]' is handy for creating odd indentation. | |
| 3099 | |
| 3100 @OTHER EMACS HINTS | |
| 3101 | |
| 3102 If you don't like the default value of a variable, change its value to | |
| 3103 whatever you do like by putting a `setq' line in your .emacs file. | |
| 3104 E.g., to set the indentation increment to 4, put this line in your | |
| 3105 .emacs: | |
| 3106 \t(setq py-indent-offset 4) | |
| 3107 To see the value of a variable, do `\\[describe-variable]' and enter the variable | |
| 3108 name at the prompt. | |
| 3109 | |
| 3110 When entering a key sequence like `C-c C-n', it is not necessary to | |
| 3111 release the CONTROL key after doing the `C-c' part -- it suffices to | |
| 3112 press the CONTROL key, press and release `c' (while still holding down | |
| 3113 CONTROL), press and release `n' (while still holding down CONTROL), & | |
| 3114 then release CONTROL. | |
| 3115 | |
| 3116 Entering Python mode calls with no arguments the value of the variable | |
| 3117 `python-mode-hook', if that value exists and is not nil; for backward | |
| 3118 compatibility it also tries `py-mode-hook'; see the `Hooks' section of | |
| 3119 the Elisp manual for details. | |
| 3120 | |
| 3121 Obscure: When python-mode is first loaded, it looks for all bindings | |
| 3122 to newline-and-indent in the global keymap, and shadows them with | |
| 3123 local bindings to py-newline-and-indent.")) | |
| 3124 | |
|
23270
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3125 (require 'info-look) |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3126 (info-lookup-maybe-add-help |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3127 :mode 'python-mode |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3128 :regexp "[a-zA-Z0-9_]+" |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3129 :doc-spec '(("(python-lib)Module Index") |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3130 ("(python-lib)Class-Exception-Object Index") |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3131 ("(python-lib)Function-Method-Variable Index") |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3132 ("(python-lib)Miscellaneous Index"))) |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3133 |
|
f970588e89b1
(py-shell-hook): A new hook variable, run at the end of py-shell.
Barry Warsaw <barry@python.org>
parents:
23230
diff
changeset
|
3134 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3135 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3136 ;; Helper functions |
| 2018 | 3137 (defvar py-parse-state-re |
| 3138 (concat | |
| 3139 "^[ \t]*\\(if\\|elif\\|else\\|while\\|def\\|class\\)\\>" | |
| 3140 "\\|" | |
| 3141 "^[^ #\t\n]")) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3142 |
| 2018 | 3143 (defun py-parse-state () |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3144 "Return the parse state at point (see `parse-partial-sexp' docs)." |
| 2018 | 3145 (save-excursion |
|
3487
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3146 (let ((here (point)) |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3147 pps done) |
|
3487
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3148 (while (not done) |
|
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3149 ;; back up to the first preceding line (if any; else start of |
|
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3150 ;; buffer) that begins with a popular Python keyword, or a |
|
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3151 ;; non- whitespace and non-comment character. These are good |
|
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3152 ;; places to start parsing to see whether where we started is |
|
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3153 ;; at a non-zero nesting level. It may be slow for people who |
|
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3154 ;; write huge code blocks or huge lists ... tough beans. |
|
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3155 (re-search-backward py-parse-state-re nil 'move) |
|
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3156 (beginning-of-line) |
|
7262
c09907104092
(py-compute-indentation): Several changes made to improve navigation
Barry Warsaw <barry@python.org>
parents:
7201
diff
changeset
|
3157 ;; In XEmacs, we have a much better way to test for whether |
|
c09907104092
(py-compute-indentation): Several changes made to improve navigation
Barry Warsaw <barry@python.org>
parents:
7201
diff
changeset
|
3158 ;; we're in a triple-quoted string or not. Emacs does not |
|
8370
f2b0859fece3
#Documentation and comment typos patch given by Michael Ernst. More
Barry Warsaw <barry@python.org>
parents:
8070
diff
changeset
|
3159 ;; have this built-in function, which is its loss because |
|
7262
c09907104092
(py-compute-indentation): Several changes made to improve navigation
Barry Warsaw <barry@python.org>
parents:
7201
diff
changeset
|
3160 ;; without scanning from the beginning of the buffer, there's |
|
c09907104092
(py-compute-indentation): Several changes made to improve navigation
Barry Warsaw <barry@python.org>
parents:
7201
diff
changeset
|
3161 ;; no accurate way to determine this otherwise. |
|
23222
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3162 (save-excursion (setq pps (parse-partial-sexp (point) here))) |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3163 ;; make sure we don't land inside a triple-quoted string |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3164 (setq done (or (not (nth 3 pps)) |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3165 (bobp))) |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3166 ;; Just go ahead and short circuit the test back to the |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3167 ;; beginning of the buffer. This will be slow, but not |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3168 ;; nearly as slow as looping through many |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3169 ;; re-search-backwards. |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3170 (if (not done) |
|
ab4fa78afddf
(py-execute-region): If you ran this without having visited a
Barry Warsaw <barry@python.org>
parents:
22524
diff
changeset
|
3171 (goto-char (point-min)))) |
|
3487
83557153f544
(py-parse-state): make sure we don't land inside a triple-quoted
Barry Warsaw <barry@python.org>
parents:
3480
diff
changeset
|
3172 pps))) |
| 2018 | 3173 |
| 3174 (defun py-nesting-level () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3175 "Return the buffer position of the last unclosed enclosing list. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3176 If nesting level is zero, return nil." |
|
7262
c09907104092
(py-compute-indentation): Several changes made to improve navigation
Barry Warsaw <barry@python.org>
parents:
7201
diff
changeset
|
3177 (let ((status (py-parse-state))) |
| 2018 | 3178 (if (zerop (car status)) |
| 3179 nil ; not in a nest | |
| 3180 (car (cdr status))))) ; char# of open bracket | |
| 3181 | |
| 3182 (defun py-backslash-continuation-line-p () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3183 "Return t iff preceding line ends with backslash that is not in a comment." |
| 2018 | 3184 (save-excursion |
| 3185 (beginning-of-line) | |
| 3186 (and | |
| 3187 ;; use a cheap test first to avoid the regexp if possible | |
| 3188 ;; use 'eq' because char-after may return nil | |
| 3189 (eq (char-after (- (point) 2)) ?\\ ) | |
| 3190 ;; make sure; since eq test passed, there is a preceding line | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3191 (forward-line -1) ; always true -- side effect |
| 2018 | 3192 (looking-at py-continued-re)))) |
| 3193 | |
| 3194 (defun py-continuation-line-p () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3195 "Return t iff current line is a continuation line." |
| 2018 | 3196 (save-excursion |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3197 (beginning-of-line) |
| 2018 | 3198 (or (py-backslash-continuation-line-p) |
| 3199 (py-nesting-level)))) | |
| 3200 | |
|
9639
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3201 (defun py-goto-beginning-of-tqs (delim) |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3202 "Go to the beginning of the triple quoted string we find ourselves in. |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3203 DELIM is the TQS string delimiter character we're searching backwards |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3204 for." |
|
15353
f480d52c0760
(py-goto-beginning-of-tqs): When searching backwards for the matching
Barry Warsaw <barry@python.org>
parents:
12994
diff
changeset
|
3205 (let ((skip (and delim (make-string 1 delim))) |
|
f480d52c0760
(py-goto-beginning-of-tqs): When searching backwards for the matching
Barry Warsaw <barry@python.org>
parents:
12994
diff
changeset
|
3206 (continue t)) |
|
9639
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3207 (when skip |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3208 (save-excursion |
|
15353
f480d52c0760
(py-goto-beginning-of-tqs): When searching backwards for the matching
Barry Warsaw <barry@python.org>
parents:
12994
diff
changeset
|
3209 (while continue |
|
f480d52c0760
(py-goto-beginning-of-tqs): When searching backwards for the matching
Barry Warsaw <barry@python.org>
parents:
12994
diff
changeset
|
3210 (py-safe (search-backward skip)) |
|
f480d52c0760
(py-goto-beginning-of-tqs): When searching backwards for the matching
Barry Warsaw <barry@python.org>
parents:
12994
diff
changeset
|
3211 (setq continue (and (not (bobp)) |
|
f480d52c0760
(py-goto-beginning-of-tqs): When searching backwards for the matching
Barry Warsaw <barry@python.org>
parents:
12994
diff
changeset
|
3212 (= (char-before) ?\\)))) |
|
f480d52c0760
(py-goto-beginning-of-tqs): When searching backwards for the matching
Barry Warsaw <barry@python.org>
parents:
12994
diff
changeset
|
3213 (if (and (= (char-before) delim) |
|
f480d52c0760
(py-goto-beginning-of-tqs): When searching backwards for the matching
Barry Warsaw <barry@python.org>
parents:
12994
diff
changeset
|
3214 (= (char-before (1- (point))) delim)) |
|
9639
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3215 (setq skip (make-string 3 delim)))) |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3216 ;; we're looking at a triple-quoted string |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3217 (py-safe (search-backward skip))))) |
|
da1dd3e54b7a
(py-goto-beginning-of-tqs): Finds the beginning of the triple quoted
Barry Warsaw <barry@python.org>
parents:
9503
diff
changeset
|
3218 |
| 2018 | 3219 (defun py-goto-initial-line () |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3220 "Go to the initial line of the current statement. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3221 Usually this is the line we're on, but if we're on the 2nd or |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3222 following lines of a continuation block, we need to go up to the first |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3223 line of the block." |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3224 ;; Tricky: We want to avoid quadratic-time behavior for long |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3225 ;; continued blocks, whether of the backslash or open-bracket |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3226 ;; varieties, or a mix of the two. The following manages to do that |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3227 ;; in the usual cases. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3228 ;; |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3229 ;; Also, if we're sitting inside a triple quoted string, this will |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3230 ;; drop us at the line that begins the string. |
|
7151
d339954ea57d
(py-goto-initial-line): Shut up the byte compiler.
Barry Warsaw <barry@python.org>
parents:
7150
diff
changeset
|
3231 (let (open-bracket-pos) |
| 2018 | 3232 (while (py-continuation-line-p) |
| 3233 (beginning-of-line) | |
| 3234 (if (py-backslash-continuation-line-p) | |
| 3235 (while (py-backslash-continuation-line-p) | |
| 3236 (forward-line -1)) | |
| 3237 ;; else zip out of nested brackets/braces/parens | |
| 3238 (while (setq open-bracket-pos (py-nesting-level)) | |
| 3239 (goto-char open-bracket-pos))))) | |
| 3240 (beginning-of-line)) | |
| 3241 | |
| 3242 (defun py-goto-beyond-final-line () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3243 "Go to the point just beyond the fine line of the current statement. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3244 Usually this is the start of the next line, but if this is a |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3245 multi-line statement we need to skip over the continuation lines." |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3246 ;; Tricky: Again we need to be clever to avoid quadratic time |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3247 ;; behavior. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3248 ;; |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3249 ;; XXX: Not quite the right solution, but deals with multi-line doc |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3250 ;; strings |
|
8379
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
3251 (if (looking-at (concat "[ \t]*\\(" py-stringlit-re "\\)")) |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
3252 (goto-char (match-end 0))) |
|
f5ebcc7a5ab2
(py-stringlit-re): Another ME patch to recognize SQTQs and DQTQs
Barry Warsaw <barry@python.org>
parents:
8378
diff
changeset
|
3253 ;; |
| 2018 | 3254 (forward-line 1) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3255 (let (state) |
| 2018 | 3256 (while (and (py-continuation-line-p) |
| 3257 (not (eobp))) | |
| 3258 ;; skip over the backslash flavor | |
| 3259 (while (and (py-backslash-continuation-line-p) | |
| 3260 (not (eobp))) | |
| 3261 (forward-line 1)) | |
| 3262 ;; if in nest, zip to the end of the nest | |
| 3263 (setq state (py-parse-state)) | |
| 3264 (if (and (not (zerop (car state))) | |
| 3265 (not (eobp))) | |
| 3266 (progn | |
|
6544
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
3267 (parse-partial-sexp (point) (point-max) 0 nil state) |
| 2018 | 3268 (forward-line 1)))))) |
| 3269 | |
| 3270 (defun py-statement-opens-block-p () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3271 "Return t iff the current statement opens a block. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3272 I.e., iff it ends with a colon that is not in a comment. Point should |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3273 be at the start of a statement." |
| 2018 | 3274 (save-excursion |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3275 (let ((start (point)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3276 (finish (progn (py-goto-beyond-final-line) (1- (point)))) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3277 (searching t) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3278 (answer nil) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3279 state) |
| 2018 | 3280 (goto-char start) |
| 3281 (while searching | |
| 3282 ;; look for a colon with nothing after it except whitespace, and | |
| 3283 ;; maybe a comment | |
| 3284 (if (re-search-forward ":\\([ \t]\\|\\\\\n\\)*\\(#.*\\)?$" | |
| 3285 finish t) | |
| 3286 (if (eq (point) finish) ; note: no `else' clause; just | |
| 3287 ; keep searching if we're not at | |
| 3288 ; the end yet | |
| 3289 ;; sure looks like it opens a block -- but it might | |
| 3290 ;; be in a comment | |
| 3291 (progn | |
| 3292 (setq searching nil) ; search is done either way | |
| 3293 (setq state (parse-partial-sexp start | |
| 3294 (match-beginning 0))) | |
| 3295 (setq answer (not (nth 4 state))))) | |
| 3296 ;; search failed: couldn't find another interesting colon | |
| 3297 (setq searching nil))) | |
| 3298 answer))) | |
| 3299 | |
|
3900
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
3300 (defun py-statement-closes-block-p () |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3301 "Return t iff the current statement closes a block. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3302 I.e., if the line starts with `return', `raise', `break', `continue', |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3303 and `pass'. This doesn't catch embedded statements." |
|
3900
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
3304 (let ((here (point))) |
|
10918
a8a1eb99341c
(py-statement-closes-block-p): py-goto-initial-line could leave us in
Barry Warsaw <barry@python.org>
parents:
10877
diff
changeset
|
3305 (py-goto-initial-line) |
|
3900
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
3306 (back-to-indentation) |
|
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
3307 (prog1 |
|
6544
d28932d676c8
Changes in preparation for integrating into the Python CVS tree.
Barry Warsaw <barry@python.org>
parents:
6232
diff
changeset
|
3308 (looking-at (concat py-block-closing-keywords-re "\\>")) |
|
3900
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
3309 (goto-char here)))) |
|
cba4ce15a0d5
(py-statement-closes-block-p, py-compute-indentation): Outdent one
Barry Warsaw <barry@python.org>
parents:
3818
diff
changeset
|
3310 |
| 2018 | 3311 (defun py-goto-beyond-block () |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3312 "Go to point just beyond the final line of block begun by the current line. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3313 This is the same as where `py-goto-beyond-final-line' goes unless |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3314 we're on colon line, in which case we go to the end of the block. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3315 Assumes point is at the beginning of the line." |
| 2018 | 3316 (if (py-statement-opens-block-p) |
| 3317 (py-mark-block nil 'just-move) | |
| 3318 (py-goto-beyond-final-line))) | |
| 3319 | |
| 3320 (defun py-goto-statement-at-or-above () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3321 "Go to the start of the first statement at or preceding point. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3322 Return t if there is such a statement, otherwise nil. `Statement' |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3323 does not include blank lines, comments, or continuation lines." |
| 2018 | 3324 (py-goto-initial-line) |
| 3325 (if (looking-at py-blank-or-comment-re) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3326 ;; skip back over blank & comment lines |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3327 ;; note: will skip a blank or comment line that happens to be |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3328 ;; a continuation line too |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3329 (if (re-search-backward "^[ \t]*[^ \t#\n]" nil t) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3330 (progn (py-goto-initial-line) t) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3331 nil) |
| 2018 | 3332 t)) |
| 3333 | |
| 3334 (defun py-goto-statement-below () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3335 "Go to start of the first statement following the statement containing point. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3336 Return t if there is such a statement, otherwise nil. `Statement' |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3337 does not include blank lines, comments, or continuation lines." |
| 2018 | 3338 (beginning-of-line) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3339 (let ((start (point))) |
| 2018 | 3340 (py-goto-beyond-final-line) |
| 3341 (while (and | |
| 3342 (looking-at py-blank-or-comment-re) | |
| 3343 (not (eobp))) | |
| 3344 (forward-line 1)) | |
| 3345 (if (eobp) | |
| 3346 (progn (goto-char start) nil) | |
| 3347 t))) | |
| 3348 | |
| 3349 (defun py-go-up-tree-to-keyword (key) | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3350 "Go to begining of statement starting with KEY, at or preceding point. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3351 |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3352 KEY is a regular expression describing a Python keyword. Skip blank |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3353 lines and non-indenting comments. If the statement found starts with |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3354 KEY, then stop, otherwise go back to first enclosing block starting |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3355 with KEY. If successful, leave point at the start of the KEY line and |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3356 return t. Otherwise, leav point at an undefined place and return nil." |
| 2018 | 3357 ;; skip blanks and non-indenting # |
| 3358 (py-goto-initial-line) | |
| 3359 (while (and | |
| 3360 (looking-at "[ \t]*\\($\\|#[^ \t\n]\\)") | |
| 3361 (zerop (forward-line -1))) ; go back | |
| 3362 nil) | |
| 3363 (py-goto-initial-line) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3364 (let* ((re (concat "[ \t]*" key "\\b")) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3365 (case-fold-search nil) ; let* so looking-at sees this |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3366 (found (looking-at re)) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3367 (dead nil)) |
| 2018 | 3368 (while (not (or found dead)) |
| 3369 (condition-case nil ; in case no enclosing block | |
| 3370 (py-goto-block-up 'no-mark) | |
| 3371 (error (setq dead t))) | |
| 3372 (or dead (setq found (looking-at re)))) | |
| 3373 (beginning-of-line) | |
| 3374 found)) | |
| 3375 | |
| 3376 (defun py-suck-up-leading-text () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3377 "Return string in buffer from start of indentation to end of line. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3378 Prefix with \"...\" if leading whitespace was skipped." |
| 2018 | 3379 (save-excursion |
| 3380 (back-to-indentation) | |
| 3381 (concat | |
| 3382 (if (bolp) "" "...") | |
| 3383 (buffer-substring (point) (progn (end-of-line) (point)))))) | |
| 3384 | |
| 3385 (defun py-suck-up-first-keyword () | |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3386 "Return first keyword on the line as a Lisp symbol. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3387 `Keyword' is defined (essentially) as the regular expression |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3388 ([a-z]+). Returns nil if none was found." |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3389 (let ((case-fold-search nil)) |
| 2018 | 3390 (if (looking-at "[ \t]*\\([a-z]+\\)\\b") |
| 3391 (intern (buffer-substring (match-beginning 1) (match-end 1))) | |
| 3392 nil))) | |
| 3393 | |
|
4195
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3394 (defun py-current-defun () |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3395 "Python value for `add-log-current-defun-function'. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3396 This tells add-log.el how to find the current function/method/variable." |
|
4195
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3397 (save-excursion |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3398 (if (re-search-backward py-defun-start-re nil t) |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3399 (or (match-string 3) |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3400 (let ((method (match-string 2))) |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3401 (if (and (not (zerop (length (match-string 1)))) |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3402 (re-search-backward py-class-start-re nil t)) |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3403 (concat (match-string 1) "." method) |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3404 method))) |
|
e3f6ada28ed0
I have been increasingly annoyed about the fact that
Barry Warsaw <barry@python.org>
parents:
4194
diff
changeset
|
3405 nil))) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3406 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3407 |
|
2799
4a998b1a331f
#changed all email address to go through python.org
Barry Warsaw <barry@python.org>
parents:
2798
diff
changeset
|
3408 (defconst py-help-address "python-mode@python.org" |
|
2495
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3409 "Address accepting submission of bug reports.") |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3410 |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3411 (defun py-version () |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3412 "Echo the current version of `python-mode' in the minibuffer." |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3413 (interactive) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3414 (message "Using `python-mode' version %s" py-version) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3415 (py-keep-region-active)) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3416 |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3417 ;; only works under Emacs 19 |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3418 ;(eval-when-compile |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3419 ; (require 'reporter)) |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3420 |
|
2495
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3421 (defun py-submit-bug-report (enhancement-p) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3422 "Submit via mail a bug report on `python-mode'. |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3423 With \\[universal-argument] (programmatically, argument ENHANCEMENT-P |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3424 non-nil) just submit an enhancement request." |
|
2495
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3425 (interactive |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3426 (list (not (y-or-n-p |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3427 "Is this a bug report (hit `n' to send other comments)? ")))) |
|
2543
1a448dd84edc
(py-submit-bug-report): fixed summary querying
Barry Warsaw <barry@python.org>
parents:
2537
diff
changeset
|
3428 (let ((reporter-prompt-for-summary-p (if enhancement-p |
|
1a448dd84edc
(py-submit-bug-report): fixed summary querying
Barry Warsaw <barry@python.org>
parents:
2537
diff
changeset
|
3429 "(Very) brief summary: " |
|
1a448dd84edc
(py-submit-bug-report): fixed summary querying
Barry Warsaw <barry@python.org>
parents:
2537
diff
changeset
|
3430 t))) |
|
2495
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3431 (require 'reporter) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3432 (reporter-submit-bug-report |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3433 py-help-address ;address |
|
2543
1a448dd84edc
(py-submit-bug-report): fixed summary querying
Barry Warsaw <barry@python.org>
parents:
2537
diff
changeset
|
3434 (concat "python-mode " py-version) ;pkgname |
|
2495
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3435 ;; varlist |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3436 (if enhancement-p nil |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3437 '(py-python-command |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3438 py-indent-offset |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3439 py-block-comment-prefix |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3440 py-temp-directory |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3441 py-beep-if-tab-change)) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3442 nil ;pre-hooks |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3443 nil ;post-hooks |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3444 "Dear Barry,") ;salutation |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3445 (if enhancement-p nil |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3446 (set-mark (point)) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3447 (insert |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3448 "Please replace this text with a sufficiently large code sample\n\ |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3449 and an exact recipe so that I can reproduce your problem. Failure\n\ |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3450 to do so may mean a greater delay in fixing your bug.\n\n") |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3451 (exchange-point-and-mark) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3452 (py-keep-region-active)))) |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3453 |
|
718c65d0e12d
(py-mode-map): py-mark-block moved to C-c C-m (was C-c C-b).
Barry Warsaw <barry@python.org>
parents:
2493
diff
changeset
|
3454 |
|
6667
089c04d89151
(py-kill-emacs-hook): Simplification.
Barry Warsaw <barry@python.org>
parents:
6663
diff
changeset
|
3455 (defun py-kill-emacs-hook () |
|
8910
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3456 "Delete files in `py-file-queue'. |
|
b1d1d8c0071b
Huge number of docstring changes, typo fixes, rewordings, GNU standard
Barry Warsaw <barry@python.org>
parents:
8888
diff
changeset
|
3457 These are Python temporary files awaiting execution." |
|
6667
089c04d89151
(py-kill-emacs-hook): Simplification.
Barry Warsaw <barry@python.org>
parents:
6663
diff
changeset
|
3458 (mapcar #'(lambda (filename) |
|
089c04d89151
(py-kill-emacs-hook): Simplification.
Barry Warsaw <barry@python.org>
parents:
6663
diff
changeset
|
3459 (py-safe (delete-file filename))) |
|
089c04d89151
(py-kill-emacs-hook): Simplification.
Barry Warsaw <barry@python.org>
parents:
6663
diff
changeset
|
3460 py-file-queue)) |
|
089c04d89151
(py-kill-emacs-hook): Simplification.
Barry Warsaw <barry@python.org>
parents:
6663
diff
changeset
|
3461 |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3462 ;; arrange to kill temp files when Emacs exists |
|
5968
b7048f5be9a1
#Checkpointing X/Emacs 20'fication of this mode.
Barry Warsaw <barry@python.org>
parents:
5965
diff
changeset
|
3463 (add-hook 'kill-emacs-hook 'py-kill-emacs-hook) |
| 17416 | 3464 (add-hook 'comint-output-filter-functions 'py-pdbtrack-track-stack-file) |
| 3465 | |
| 3466 ;; Add a designator to the minor mode strings | |
| 3467 (or (assq 'py-pdbtrack-minor-mode-string minor-mode-alist) | |
| 3468 (push '(py-pdbtrack-is-tracking-p py-pdbtrack-minor-mode-string) | |
| 3469 minor-mode-alist)) | |
|
2493
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3470 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3471 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3472 |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3473 (provide 'python-mode) |
|
d9481354fdc3
#initial stylistic rewrite
Barry Warsaw <barry@python.org>
parents:
2041
diff
changeset
|
3474 ;;; python-mode.el ends here |
