1826
|
1 |
;;
|
|
2 |
;; -- init-file for Xemacs Emacs for Isabelle environment
|
|
3 |
;;
|
|
4 |
;; Franz Regensburger <regensbu@informatik.tu-muenchen.de>
|
|
5 |
;;
|
|
6 |
|
|
7 |
;;; Isabelle-Font as default
|
2852
|
8 |
;;(set-default-font "isabelle14")
|
|
9 |
;;(set-face-font 'default "isabelle14")
|
1826
|
10 |
|
|
11 |
;; activate 8bit chars
|
|
12 |
;; ...for all new buffers
|
|
13 |
(setq default-ctl-arrow "z")
|
|
14 |
;; ...and for the still active buffer
|
|
15 |
(setq ctl-arrow "z")
|
|
16 |
|
|
17 |
;; popup menu for Isabelle fonts
|
|
18 |
|
|
19 |
(defun isabelle-fonts-menu (e)
|
|
20 |
"Pops up the Isabelle fonts menu."
|
|
21 |
(interactive "@e")
|
|
22 |
(popup-menu
|
|
23 |
'("Isabelle fonts menu"
|
2852
|
24 |
["Isabelle 14" (set-face-font 'default "isabelle14") t]
|
|
25 |
["Isabelle 24" (set-face-font 'default "isabelle24") t]
|
1826
|
26 |
)))
|
|
27 |
|
|
28 |
(global-unset-key '(shift control button3))
|
|
29 |
(global-set-key '(shift control button3) 'isabelle-fonts-menu)
|
|
30 |
|
|
31 |
|
|
32 |
;; DO NOT EDIT the lines between BEGIN-KEY-MAP and END-KEY-MAP
|
|
33 |
;; the table is generated by the perl script `gen-isa_xemacs'
|
|
34 |
;; In order to make changes to the keyboard mappings you should edit
|
|
35 |
;; the configuration file `key-table.inp' which is interpreted by
|
|
36 |
;; the perl script `gen-isa_xemacs',
|
|
37 |
;;
|
|
38 |
;;
|
|
39 |
;; key-map for Isabelle font
|
|
40 |
;;
|
|
41 |
;; BEGIN-KEY-MAP
|
4638
|
42 |
(global-set-key '(super space) '(lambda () (interactive) (insert "\240")))
|
1826
|
43 |
(global-set-key '(super G) '(lambda () (interactive) (insert "\241")))
|
|
44 |
(global-set-key '(super D) '(lambda () (interactive) (insert "\242")))
|
|
45 |
(global-set-key '(super J) '(lambda () (interactive) (insert "\243")))
|
|
46 |
(global-set-key '(super L) '(lambda () (interactive) (insert "\244")))
|
|
47 |
(global-set-key '(super P) '(lambda () (interactive) (insert "\245")))
|
|
48 |
(global-set-key '(super S) '(lambda () (interactive) (insert "\246")))
|
|
49 |
(global-set-key '(super F) '(lambda () (interactive) (insert "\247")))
|
|
50 |
(global-set-key '(super Q) '(lambda () (interactive) (insert "\250")))
|
|
51 |
(global-set-key '(super W) '(lambda () (interactive) (insert "\251")))
|
|
52 |
(global-set-key '(super a) '(lambda () (interactive) (insert "\252")))
|
|
53 |
(global-set-key '(super b) '(lambda () (interactive) (insert "\253")))
|
|
54 |
(global-set-key '(super g) '(lambda () (interactive) (insert "\254")))
|
|
55 |
(global-set-key '(super d) '(lambda () (interactive) (insert "\255")))
|
|
56 |
(global-set-key '(super e) '(lambda () (interactive) (insert "\256")))
|
|
57 |
(global-set-key '(super z) '(lambda () (interactive) (insert "\257")))
|
|
58 |
(global-set-key '(super h) '(lambda () (interactive) (insert "\260")))
|
|
59 |
(global-set-key '(super j) '(lambda () (interactive) (insert "\261")))
|
|
60 |
(global-set-key '(super k) '(lambda () (interactive) (insert "\262")))
|
|
61 |
(global-set-key '(super l) '(lambda () (interactive) (insert "\263")))
|
|
62 |
(global-set-key '(super m) '(lambda () (interactive) (insert "\264")))
|
|
63 |
(global-set-key '(super n) '(lambda () (interactive) (insert "\265")))
|
|
64 |
(global-set-key '(super x) '(lambda () (interactive) (insert "\266")))
|
|
65 |
(global-set-key '(super p) '(lambda () (interactive) (insert "\267")))
|
|
66 |
(global-set-key '(super r) '(lambda () (interactive) (insert "\270")))
|
|
67 |
(global-set-key '(super s) '(lambda () (interactive) (insert "\271")))
|
|
68 |
(global-set-key '(super t) '(lambda () (interactive) (insert "\272")))
|
|
69 |
(global-set-key '(super f) '(lambda () (interactive) (insert "\273")))
|
|
70 |
(global-set-key '(super c) '(lambda () (interactive) (insert "\274")))
|
|
71 |
(global-set-key '(super q) '(lambda () (interactive) (insert "\275")))
|
|
72 |
(global-set-key '(super w) '(lambda () (interactive) (insert "\276")))
|
|
73 |
(global-set-key '(hyper n) '(lambda () (interactive) (insert "\277")))
|
|
74 |
(global-set-key '(hyper a) '(lambda () (interactive) (insert "\300")))
|
|
75 |
(global-set-key '(hyper o) '(lambda () (interactive) (insert "\301")))
|
|
76 |
(global-set-key '(hyper f) '(lambda () (interactive) (insert "\302")))
|
|
77 |
(global-set-key '(hyper t) '(lambda () (interactive) (insert "\303")))
|
|
78 |
(global-set-key '(hyper F) '(lambda () (interactive) (insert "\304")))
|
|
79 |
(global-set-key '(hyper b) '(lambda () (interactive) (insert "\330")))
|
|
80 |
(global-set-key '(hyper e) '(lambda () (interactive) (insert "\331")))
|
|
81 |
(global-set-key '(hyper E) '(lambda () (interactive) (insert "\332")))
|
|
82 |
(global-set-key '(hyper u) '(lambda () (interactive) (insert "\333")))
|
|
83 |
(global-set-key '(hyper p) '(lambda () (interactive) (insert "\334")))
|
|
84 |
(global-set-key '(hyper P) '(lambda () (interactive) (insert "\335")))
|
|
85 |
(global-set-key '(hyper l) '(lambda () (interactive) (insert "\336")))
|
|
86 |
(global-set-key '(hyper L) '(lambda () (interactive) (insert "\337")))
|
|
87 |
(global-set-key '(hyper g) '(lambda () (interactive) (insert "\340")))
|
|
88 |
(global-set-key '(hyper G) '(lambda () (interactive) (insert "\341")))
|
|
89 |
(global-set-key '(hyper s) '(lambda () (interactive) (insert "\342")))
|
|
90 |
(global-set-key '(hyper S) '(lambda () (interactive) (insert "\343")))
|
4638
|
91 |
(global-set-key '(hyper i) '(lambda () (interactive) (insert "\347")(insert "\350")))
|
|
92 |
(global-set-key '(hyper I) '(lambda () (interactive) (insert "\352")(insert "\353")))
|
|
93 |
(global-set-key '(hyper M) '(lambda () (interactive) (insert "\350")))
|
|
94 |
(global-set-key '(hyper m) '(lambda () (interactive) (insert "\353")))
|
|
95 |
(global-set-key '(hyper N) '(lambda () (interactive) (insert "\367")))
|
|
96 |
(global-set-key '(hyper x) '(lambda () (interactive) (insert "\362")))
|
|
97 |
(global-set-key '(f2) '(lambda () (interactive) (insert "\344")))
|
|
98 |
(global-set-key '(f3) '(lambda () (interactive) (insert "\335")))
|
|
99 |
(global-set-key '(f4) '(lambda () (interactive) (insert "\317")))
|
|
100 |
(global-set-key '(f5) '(lambda () (interactive) (insert "\316")))
|
|
101 |
(global-set-key '(f6) '(lambda () (interactive) (insert "\361")))
|
|
102 |
(global-set-key '(f7) '(lambda () (interactive) (insert "\345")))
|
|
103 |
(global-set-key '(f8) '(lambda () (interactive) (insert "\332")))
|
|
104 |
(global-set-key '(f9) '(lambda () (interactive) (insert "\304")))
|
|
105 |
(global-set-key '(f10) '(lambda () (interactive) (insert "\313")))
|
|
106 |
(global-set-key '(f11) '(lambda () (interactive) (insert "\314")))
|
|
107 |
(global-set-key '(f12) '(lambda () (interactive) (insert "\352")(insert "\353")))
|
1826
|
108 |
(global-set-key '(shift f1) '(lambda () (interactive) (insert "\351")))
|
|
109 |
(global-set-key '(shift f2) '(lambda () (interactive) (insert "\352")))
|
|
110 |
(global-set-key '(shift f3) '(lambda () (interactive) (insert "\353")))
|
4638
|
111 |
(global-set-key '(shift f4) '(lambda () (interactive) (insert "\351")(insert "\353")))
|
1826
|
112 |
(global-set-key '(shift f5) '(lambda () (interactive) (insert "\363")))
|
|
113 |
(global-set-key '(shift f6) '(lambda () (interactive) (insert "\364")))
|
|
114 |
(global-set-key '(shift f7) '(lambda () (interactive) (insert "\365")))
|
|
115 |
(global-set-key '(shift f8) '(lambda () (interactive) (insert "\366")))
|
4638
|
116 |
(global-set-key '(shift f9) '(lambda () (interactive) (insert "\312")))
|
|
117 |
(global-set-key '(shift f10) '(lambda () (interactive) (insert "\311")))
|
|
118 |
(global-set-key '(control f1) '(lambda () (interactive) (insert "\346")))
|
|
119 |
(global-set-key '(control f2) '(lambda () (interactive) (insert "\347")))
|
|
120 |
(global-set-key '(control f3) '(lambda () (interactive) (insert "\350")))
|
|
121 |
(global-set-key '(control f4) '(lambda () (interactive) (insert "\346")(insert "\350")))
|
|
122 |
(global-set-key '(control f5) '(lambda () (interactive) (insert "\305")))
|
|
123 |
(global-set-key '(control f6) '(lambda () (interactive) (insert "\306")))
|
|
124 |
(global-set-key '(control f7) '(lambda () (interactive) (insert "\307")))
|
|
125 |
(global-set-key '(control f8) '(lambda () (interactive) (insert "\310")))
|
|
126 |
(global-set-key '(control f9) '(lambda () (interactive) (insert "\375")))
|
|
127 |
(global-set-key '(control f10) '(lambda () (interactive) (insert "\315")))
|
|
128 |
(global-set-key '(super f1) '(lambda () (interactive) (insert "\355")))
|
|
129 |
(global-set-key '(super f2) '(lambda () (interactive) (insert "\356")))
|
|
130 |
(global-set-key '(super f3) '(lambda () (interactive) (insert "\357")))
|
|
131 |
(global-set-key '(super f4) '(lambda () (interactive) (insert "\360")))
|
|
132 |
(global-set-key '(super f5) '(lambda () (interactive) (insert "\324")))
|
|
133 |
(global-set-key '(super f6) '(lambda () (interactive) (insert "\325")))
|
|
134 |
(global-set-key '(super f7) '(lambda () (interactive) (insert "\326")))
|
|
135 |
(global-set-key '(super f8) '(lambda () (interactive) (insert "\327")))
|
|
136 |
(global-set-key '(super f9) '(lambda () (interactive) (insert "\334")))
|
|
137 |
(global-set-key '(super f10) '(lambda () (interactive) (insert "\370")))
|
|
138 |
(global-set-key '(hyper f1) '(lambda () (interactive) (insert "\371")))
|
|
139 |
(global-set-key '(hyper f2) '(lambda () (interactive) (insert "\372")))
|
|
140 |
(global-set-key '(hyper f3) '(lambda () (interactive) (insert "\373")))
|
|
141 |
(global-set-key '(hyper f4) '(lambda () (interactive) (insert "\374")))
|
|
142 |
(global-set-key '(hyper f5) '(lambda () (interactive) (insert "\320")))
|
|
143 |
(global-set-key '(hyper f6) '(lambda () (interactive) (insert "\321")))
|
|
144 |
(global-set-key '(hyper f7) '(lambda () (interactive) (insert "\322")))
|
|
145 |
(global-set-key '(hyper f8) '(lambda () (interactive) (insert "\323")))
|
|
146 |
(global-set-key '(hyper f9) '(lambda () (interactive) (insert "\367")))
|
|
147 |
(global-set-key '(hyper f10) '(lambda () (interactive) (insert "\354")))
|
1826
|
148 |
(global-set-key '(hyper f11) '(lambda () (interactive) (insert "\376")))
|
|
149 |
(global-set-key '(hyper f12) '(lambda () (interactive) (insert "\377")))
|
|
150 |
;; END-KEY-MAP
|
|
151 |
|
|
152 |
|
|
153 |
|
|
154 |
|
|
155 |
|