diff options
| author | Karoly Lorentey | 2006-12-03 12:25:18 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2006-12-03 12:25:18 +0000 |
| commit | d6e01aa592f7326dffeafa6e97180a1cc39fe7ea (patch) | |
| tree | 5a22b785cfee1d77d6452607450a12ca82eeecd3 /lisp/progmodes/python.el | |
| parent | 14bcc1e098410087a837313e2fc822319ff2e8ca (diff) | |
| parent | 4975e69596a64247e8995d1ff9084b98a9a5ed0d (diff) | |
| download | emacs-d6e01aa592f7326dffeafa6e97180a1cc39fe7ea.tar.gz emacs-d6e01aa592f7326dffeafa6e97180a1cc39fe7ea.zip | |
Merged from emacs@sv.gnu.org.
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-479
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-480
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-481
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-482
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-483
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-484
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-485
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-153
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-154
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-155
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-585
Diffstat (limited to 'lisp/progmodes/python.el')
| -rw-r--r-- | lisp/progmodes/python.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 0387c05134e..4d9a49a6b8d 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -1969,6 +1969,13 @@ Repeating the command scrolls the completion window." | |||
| 1969 | 1969 | ||
| 1970 | ;;;; Skeletons | 1970 | ;;;; Skeletons |
| 1971 | 1971 | ||
| 1972 | (defcustom python-use-skeletons nil | ||
| 1973 | "Non-nil means template skeletons will be automagically inserted. | ||
| 1974 | This happens when pressing \"if<SPACE>\", for example, to prompt for | ||
| 1975 | the if condition." | ||
| 1976 | :type 'boolean | ||
| 1977 | :group 'python) | ||
| 1978 | |||
| 1972 | (defvar python-skeletons nil | 1979 | (defvar python-skeletons nil |
| 1973 | "Alist of named skeletons for Python mode. | 1980 | "Alist of named skeletons for Python mode. |
| 1974 | Elements are of the form (NAME . EXPANDER-FUNCTION).") | 1981 | Elements are of the form (NAME . EXPANDER-FUNCTION).") |
| @@ -1986,7 +1993,8 @@ The default contents correspond to the elements of `python-skeletons'.") | |||
| 1986 | (function (intern (concat "python-insert-" name)))) | 1993 | (function (intern (concat "python-insert-" name)))) |
| 1987 | `(progn | 1994 | `(progn |
| 1988 | (add-to-list 'python-skeletons ',(cons name function)) | 1995 | (add-to-list 'python-skeletons ',(cons name function)) |
| 1989 | (define-abbrev python-mode-abbrev-table ,name "" ',function nil t) | 1996 | (if python-use-skeletons |
| 1997 | (define-abbrev python-mode-abbrev-table ,name "" ',function nil t)) | ||
| 1990 | (define-skeleton ,function | 1998 | (define-skeleton ,function |
| 1991 | ,(format "Insert Python \"%s\" template." name) | 1999 | ,(format "Insert Python \"%s\" template." name) |
| 1992 | ,@elements))))) | 2000 | ,@elements))))) |