1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
;-*-emacs-lisp-*-
(cond
((not (file-exists-p "/usr/share/emacs/site-lisp/python-mode"))
(message
"Package python-mode removed but not purged. Skipping setup."))
((not (file-exists-p (concat "/usr/share/"
(symbol-name debian-emacs-flavor)
"/site-lisp/python-mode/python-mode.elc")))
(message "Package python-mode not fully installed. Skipping setup."))
(t
(autoload 'python-mode "python-mode" "Python editing mode." t)
(autoload 'py-shell "python-mode" "Interactive Python interpreter." t)
(autoload 'doctest-mode "doctest-mode" "Python doctest editing mode." t)
(setq load-path
(append
(list
(concat "/usr/share/"
(symbol-name debian-emacs-flavor)
"/site-lisp/python-mode")
(concat "/usr/share/"
(symbol-name debian-emacs-flavor)
"/site-lisp/pymacs")
)
load-path))
(setq auto-mode-alist
(append
(list
'("\\.py\\'" . python-mode)
'("SConstruct$" . python-mode)
'("SConscript$" . python-mode)
)
auto-mode-alist))
(setq interpreter-mode-alist
(append
(list
'("python" . python-mode)
'("python2.1" . python-mode)
'("python2.2" . python-mode)
'("python2.3" . python-mode)
'("python2.4" . python-mode)
'("python2.5" . python-mode)
'("python2.6" . python-mode)
'("python2.7" . python-mode)
'("python3" . python-mode)
'("python3.2" . python-mode)
)
interpreter-mode-alist))
))
|
