etc/isa-settings.el
author wenzelm
Thu Apr 17 14:41:56 1997 +0200 (1997-04-17)
changeset 2972 11e124d2e184
parent 2938 d5e8b19a7765
child 3070 cadbaef4f4a5
permissions -rw-r--r--
tuned;
wenzelm@2938
     1
;
wenzelm@2938
     2
; $Id$
wenzelm@2938
     3
;
wenzelm@2938
     4
; Setup GNU Emacs for Isabelle environment.
wenzelm@2938
     5
;
wenzelm@2938
     6
wenzelm@2972
     7
;; Misc settins
wenzelm@2972
     8
wenzelm@2972
     9
(setq listener-base-mode 'fundamental-mode)
wenzelm@2972
    10
(setq isa-thy-use-sml-mode nil)
wenzelm@2972
    11
wenzelm@2972
    12
wenzelm@2938
    13
;; Isabelle fonts
wenzelm@2938
    14
wenzelm@2938
    15
(set-default-font "isabelle14")
wenzelm@2938
    16
wenzelm@2938
    17
(setcdr x-fixed-font-alist
wenzelm@2938
    18
	(cons  '("Symbol fonts"
wenzelm@2938
    19
		 ("isabelle 14" "isabelle14")
wenzelm@2938
    20
		 ("isabelle 24" "isabelle24"))
wenzelm@2938
    21
	       (cdr x-fixed-font-alist)))
wenzelm@2938
    22
wenzelm@2938
    23
;; Keymaps
wenzelm@2938
    24
wenzelm@2938
    25
(setq default-ctl-arrow "z")
wenzelm@2938
    26
(setq ctl-arrow "z")
wenzelm@2938
    27
wenzelm@2938
    28
(standard-display-european 1)
wenzelm@2938
    29
(require 'iso-syntax)
wenzelm@2938
    30
wenzelm@2938
    31
;; FIXME
wenzelm@2938
    32
;; DO NOT EDIT the lines between BEGIN-KEY-MAP and END-KEY-MAP
wenzelm@2938
    33
;; the table is generated by the perl script `gen-isa_gnu_emacs'
wenzelm@2938
    34
;; In order to make changes to the keyboard mappings you should edit
wenzelm@2938
    35
;; the configuration file `key-table.inp' which is interpreted by
wenzelm@2938
    36
;; the perl script `gen-isa_gnu_emacs', 
wenzelm@2938
    37
;;
wenzelm@2938
    38
;;
wenzelm@2938
    39
;; key-map for Isabelle font
wenzelm@2938
    40
;;   
wenzelm@2938
    41
;; BEGIN-KEY-MAP
wenzelm@2938
    42
(global-set-key [?\s-G] '(lambda () (interactive) (insert "\241")))
wenzelm@2938
    43
(global-set-key [?\s-D] '(lambda () (interactive) (insert "\242")))
wenzelm@2938
    44
(global-set-key [?\s-J] '(lambda () (interactive) (insert "\243")))
wenzelm@2938
    45
(global-set-key [?\s-L] '(lambda () (interactive) (insert "\244")))
wenzelm@2938
    46
(global-set-key [?\s-P] '(lambda () (interactive) (insert "\245")))
wenzelm@2938
    47
(global-set-key [?\s-S] '(lambda () (interactive) (insert "\246")))
wenzelm@2938
    48
(global-set-key [?\s-F] '(lambda () (interactive) (insert "\247")))
wenzelm@2938
    49
(global-set-key [?\s-Q] '(lambda () (interactive) (insert "\250")))
wenzelm@2938
    50
(global-set-key [?\s-W] '(lambda () (interactive) (insert "\251")))
wenzelm@2938
    51
(global-set-key [?\s-a] '(lambda () (interactive) (insert "\252")))
wenzelm@2938
    52
(global-set-key [?\s-b] '(lambda () (interactive) (insert "\253")))
wenzelm@2938
    53
(global-set-key [?\s-g] '(lambda () (interactive) (insert "\254")))
wenzelm@2938
    54
(global-set-key [?\s-d] '(lambda () (interactive) (insert "\255")))
wenzelm@2938
    55
(global-set-key [?\s-e] '(lambda () (interactive) (insert "\256")))
wenzelm@2938
    56
(global-set-key [?\s-z] '(lambda () (interactive) (insert "\257")))
wenzelm@2938
    57
(global-set-key [?\s-h] '(lambda () (interactive) (insert "\260")))
wenzelm@2938
    58
(global-set-key [?\s-j] '(lambda () (interactive) (insert "\261")))
wenzelm@2938
    59
(global-set-key [?\s-k] '(lambda () (interactive) (insert "\262")))
wenzelm@2938
    60
(global-set-key [?\s-l] '(lambda () (interactive) (insert "\263")))
wenzelm@2938
    61
(global-set-key [?\s-m] '(lambda () (interactive) (insert "\264")))
wenzelm@2938
    62
(global-set-key [?\s-n] '(lambda () (interactive) (insert "\265")))
wenzelm@2938
    63
(global-set-key [?\s-x] '(lambda () (interactive) (insert "\266")))
wenzelm@2938
    64
(global-set-key [?\s-p] '(lambda () (interactive) (insert "\267")))
wenzelm@2938
    65
(global-set-key [?\s-r] '(lambda () (interactive) (insert "\270")))
wenzelm@2938
    66
(global-set-key [?\s-s] '(lambda () (interactive) (insert "\271")))
wenzelm@2938
    67
(global-set-key [?\s-t] '(lambda () (interactive) (insert "\272")))
wenzelm@2938
    68
(global-set-key [?\s-f] '(lambda () (interactive) (insert "\273")))
wenzelm@2938
    69
(global-set-key [?\s-c] '(lambda () (interactive) (insert "\274")))
wenzelm@2938
    70
(global-set-key [?\s-q] '(lambda () (interactive) (insert "\275")))
wenzelm@2938
    71
(global-set-key [?\s-w] '(lambda () (interactive) (insert "\276")))
wenzelm@2938
    72
(global-set-key [?\H-n] '(lambda () (interactive) (insert "\277")))
wenzelm@2938
    73
(global-set-key [?\H-a] '(lambda () (interactive) (insert "\300")))
wenzelm@2938
    74
(global-set-key [?\H-o] '(lambda () (interactive) (insert "\301")))
wenzelm@2938
    75
(global-set-key [?\H-f] '(lambda () (interactive) (insert "\302")))
wenzelm@2938
    76
(global-set-key [?\H-t] '(lambda () (interactive) (insert "\303")))
wenzelm@2938
    77
(global-set-key [?\H-F] '(lambda () (interactive) (insert "\304")))
wenzelm@2938
    78
(global-set-key [C-f5] '(lambda () (interactive) (insert "\305")))
wenzelm@2938
    79
(global-set-key [C-f6] '(lambda () (interactive) (insert "\306")))
wenzelm@2938
    80
(global-set-key [C-f7] '(lambda () (interactive) (insert "\307")))
wenzelm@2938
    81
(global-set-key [C-f8] '(lambda () (interactive) (insert "\310")))
wenzelm@2938
    82
(global-set-key [C-f9] '(lambda () (interactive) (insert "\311")))
wenzelm@2938
    83
(global-set-key [C-f10] '(lambda () (interactive) (insert "\312")))
wenzelm@2938
    84
(global-set-key [C-f11] '(lambda () (interactive) (insert "\313")))
wenzelm@2938
    85
(global-set-key [C-f12] '(lambda () (interactive) (insert "\314")))
wenzelm@2938
    86
(global-set-key [H-f5] '(lambda () (interactive) (insert "\317")))
wenzelm@2938
    87
(global-set-key [H-f6] '(lambda () (interactive) (insert "\371")))
wenzelm@2938
    88
(global-set-key [H-f7] '(lambda () (interactive) (insert "\372")))
wenzelm@2938
    89
(global-set-key [H-f1] '(lambda () (interactive) (insert "\320")))
wenzelm@2938
    90
(global-set-key [H-f2] '(lambda () (interactive) (insert "\321")))
wenzelm@2938
    91
(global-set-key [H-f3] '(lambda () (interactive) (insert "\322")))
wenzelm@2938
    92
(global-set-key [H-f4] '(lambda () (interactive) (insert "\323")))
wenzelm@2938
    93
(global-set-key [C-f1] '(lambda () (interactive) (insert "\324")))
wenzelm@2938
    94
(global-set-key [C-f2] '(lambda () (interactive) (insert "\325")))
wenzelm@2938
    95
(global-set-key [C-f3] '(lambda () (interactive) (insert "\326")))
wenzelm@2938
    96
(global-set-key [C-f4] '(lambda () (interactive) (insert "\327")))
wenzelm@2938
    97
(global-set-key [?\H-b] '(lambda () (interactive) (insert "\330")))
wenzelm@2938
    98
(global-set-key [?\H-e] '(lambda () (interactive) (insert "\331")))
wenzelm@2938
    99
(global-set-key [?\H-E] '(lambda () (interactive) (insert "\332")))
wenzelm@2938
   100
(global-set-key [?\H-u] '(lambda () (interactive) (insert "\333")))
wenzelm@2938
   101
(global-set-key [?\H-p] '(lambda () (interactive) (insert "\334")))
wenzelm@2938
   102
(global-set-key [?\H-P] '(lambda () (interactive) (insert "\335")))
wenzelm@2938
   103
(global-set-key [?\H-l] '(lambda () (interactive) (insert "\336")))
wenzelm@2938
   104
(global-set-key [?\H-L] '(lambda () (interactive) (insert "\337")))
wenzelm@2938
   105
(global-set-key [?\H-g] '(lambda () (interactive) (insert "\340")))
wenzelm@2938
   106
(global-set-key [?\H-G] '(lambda () (interactive) (insert "\341")))
wenzelm@2938
   107
(global-set-key [?\H-s] '(lambda () (interactive) (insert "\342")))
wenzelm@2938
   108
(global-set-key [?\H-S] '(lambda () (interactive) (insert "\343")))
wenzelm@2938
   109
(global-set-key [S-f11] '(lambda () (interactive) (insert "\344")))
wenzelm@2938
   110
(global-set-key [S-f12] '(lambda () (interactive) (insert "\345")))
wenzelm@2938
   111
(global-set-key [s-f1] '(lambda () (interactive) (insert "\346")))
wenzelm@2938
   112
(global-set-key [s-f2] '(lambda () (interactive) (insert "\347")))
wenzelm@2938
   113
(global-set-key [s-f3] '(lambda () (interactive) (insert "\350")))
wenzelm@2938
   114
(global-set-key [S-f1] '(lambda () (interactive) (insert "\351")))
wenzelm@2938
   115
(global-set-key [S-f2] '(lambda () (interactive) (insert "\352")))
wenzelm@2938
   116
(global-set-key [S-f3] '(lambda () (interactive) (insert "\353")))
wenzelm@2938
   117
(global-set-key [s-f5] '(lambda () (interactive) (insert "\354")))
wenzelm@2938
   118
(global-set-key [s-f6] '(lambda () (interactive) (insert "\355")))
wenzelm@2938
   119
(global-set-key [s-f7] '(lambda () (interactive) (insert "\356")))
wenzelm@2938
   120
(global-set-key [s-f8] '(lambda () (interactive) (insert "\357")))
wenzelm@2938
   121
(global-set-key [s-f9] '(lambda () (interactive) (insert "\360")))
wenzelm@2938
   122
(global-set-key [s-f10] '(lambda () (interactive) (insert "\315")))
wenzelm@2938
   123
(global-set-key [?\H-x] '(lambda () (interactive) (insert "\362")))
wenzelm@2938
   124
(global-set-key [S-f5] '(lambda () (interactive) (insert "\363")))
wenzelm@2938
   125
(global-set-key [S-f6] '(lambda () (interactive) (insert "\364")))
wenzelm@2938
   126
(global-set-key [S-f7] '(lambda () (interactive) (insert "\365")))
wenzelm@2938
   127
(global-set-key [S-f8] '(lambda () (interactive) (insert "\366")))
wenzelm@2938
   128
(global-set-key [S-f9] '(lambda () (interactive) (insert "\367")))
wenzelm@2938
   129
(global-set-key [S-f10] '(lambda () (interactive) (insert "\370")))
wenzelm@2938
   130
(global-set-key [s-f11] '(lambda () (interactive) (insert "\316")))
wenzelm@2938
   131
(global-set-key [s-f12] '(lambda () (interactive) (insert "\361")))
wenzelm@2938
   132
(global-set-key [H-f8] '(lambda () (interactive) (insert "\373")))
wenzelm@2938
   133
(global-set-key [H-f9] '(lambda () (interactive) (insert "\374")))
wenzelm@2938
   134
(global-set-key [H-f10] '(lambda () (interactive) (insert "\375")))
wenzelm@2938
   135
(global-set-key [H-f11] '(lambda () (interactive) (insert "\376")))
wenzelm@2938
   136
(global-set-key [H-f12] '(lambda () (interactive) (insert "\377")))
wenzelm@2938
   137
(global-set-key [S-f4] '(lambda () (interactive) (insert "\351")(insert "\353")))
wenzelm@2938
   138
(global-set-key [s-f4] '(lambda () (interactive) (insert "\346")(insert "\350")))
wenzelm@2938
   139
(global-set-key [?\H-i] '(lambda () (interactive) (insert "\347")(insert "\350")))
wenzelm@2938
   140
(global-set-key [?\H-I] '(lambda () (interactive) (insert "\352")(insert "\353")))
wenzelm@2938
   141
(global-set-key [?\H-m] '(lambda () (interactive) (insert "\350")))
wenzelm@2938
   142
(global-set-key [?\H-M] '(lambda () (interactive) (insert "\353")))
wenzelm@2938
   143
(global-set-key [?\H-N] '(lambda () (interactive) (insert "\367")))
wenzelm@2938
   144
(global-set-key [f9] '(lambda () (interactive) (insert "\304")))
wenzelm@2938
   145
(global-set-key [f10] '(lambda () (interactive) (insert "\352")(insert "\353")))
wenzelm@2938
   146
(global-set-key [f11] '(lambda () (interactive) (insert "\332")))
wenzelm@2938
   147
(global-set-key [f12] '(lambda () (interactive) (insert "\333")))
wenzelm@2938
   148
;; END-KEY-MAP