If heirloom shell is in /usr/lib/heirloom/5bin/sh, use it to run tests.
[mmh] / docs / historical / mh-6.8.5 / miscellany / mhe / mh-keymap.ml
1 ; This file, when loaded, creates the mh keymap. Explicitly loaded from the
2 ; root.
3
4     (progn loop
5         (save-excursion
6             (temp-use-buffer "+inbox")
7             (define-keymap "&mh-keymap")
8             (define-keymap "&mh-x-keymap")
9             (use-local-map "&mh-keymap")
10             (setq loop 0)
11             (while (<= loop 127)
12                 (local-bind-to-key "&mh-summary" loop)
13                 (setq loop (+ loop 1))
14             )
15             (setq loop '0')
16             (while (<= loop '9')
17                 (local-bind-to-key "digit" loop)
18                 (setq loop (+ loop 1))
19             )
20             (local-bind-to-key "&mh-help" "?")
21             (local-bind-to-key "&mh-Mark-file-deleted" "d")
22             (local-bind-to-key "&mh-Mark-file-deleted" "D")
23             (local-bind-to-key "&mh-Mark-file-deleted" "\ 4")
24             (local-bind-to-key "&mh-move" "^")
25             (local-bind-to-key "&mh-re-move" "!")
26             (local-bind-to-key "&mh-previous-line" "\\b")
27             (local-bind-to-key "&mh-previous-line" "\\ 2")
28             (local-bind-to-key "&mh-previous-line" "p")
29             (local-bind-to-key "&mh-previous-line" "P")
30             (local-bind-to-key "previous-line" "\^P")
31             (local-bind-to-key "next-line" "\^N")
32             (local-bind-to-key "&mh-next-line" "n")
33             (local-bind-to-key "&mh-next-line" "N")
34             (local-bind-to-key "&mh-next-line" "\\ 6")
35             (local-bind-to-key "redraw-display" "\\f")
36             (local-bind-to-key "search-forward" "\\13")
37             (local-bind-to-key "search-reverse" "\\12")
38             (local-bind-to-key "argument-prefix" "\^U")
39             (local-bind-to-key "previous-window" "\^Xp")
40             (local-bind-to-key "previous-window" "\^XP")
41             (local-bind-to-key "next-window" "\^Xn")
42             (local-bind-to-key "next-window" "\^XN")
43             (local-bind-to-key "delete-window" "\^Xd")
44             (local-bind-to-key "delete-window" "\^XD")
45             (local-bind-to-key "delete-other-windows" "\^X1")
46             (local-bind-to-key "visit-file" "\^X\^V")
47             (local-bind-to-key "next-page" "\^V")
48             (local-bind-to-key "redraw-display" "\\f")
49             (local-bind-to-key "previous-page" "\ev")
50             (local-bind-to-key "previous-page" "\eV")
51             (local-bind-to-key "scroll-one-line-up" "\1a")
52             (local-bind-to-key "scroll-one-line-down" "\e\1a")
53             (local-bind-to-key "beginning-of-file" "\e<")
54             (local-bind-to-key "end-of-file" "\e>")
55             (local-bind-to-key "return-to-monitor" "\\1f")
56             (local-bind-to-key "&mh-unmark" "u")
57             (local-bind-to-key "&mh-unmark" "U")
58             (local-bind-to-key "exit-emacs" "\\18\\ 3")
59             (local-bind-to-key "&mh-show" "t")
60             (local-bind-to-key "&mh-show" "T")
61             (local-bind-to-key "&mh-edit" "e")
62             (local-bind-to-key "&mh-edit" "E")
63             (local-bind-to-key "&mh-repl" "R")
64             (local-bind-to-key "&mh-repl" "r")
65             (local-bind-to-key "&mh-send" "m")
66             (local-bind-to-key "&mh-send" "M")
67             (local-bind-to-key "&mh-forw" "f")
68             (local-bind-to-key "&mh-forw" "F")
69             (local-bind-to-key "&mh-remove" "\\v")
70             (local-bind-to-key "&mh-new-folder" "\\18\\ 6")
71             (local-bind-to-key "&mh-new-folder" "g")
72             (local-bind-to-key "&mh-new-folder" "G")
73             (local-bind-to-key "&mh-bboard" "b")
74             (local-bind-to-key "&mh-bboard" "B")
75             (local-bind-to-key "&mh-inc" "i")
76             (local-bind-to-key "&mh-inc" "I")
77             (local-bind-to-key "&mh-extras" "x")
78             (local-bind-to-key "&mh-extras" "X")
79
80             (temp-use-buffer "mh-xcommands")
81             (use-local-map "&mh-x-keymap")
82             (setq loop 0)
83             (while (<= loop 255)
84                    (local-bind-to-key "&mh-beep" loop)
85                    (setq loop (+ loop 1))
86             )
87             (local-bind-to-key "exit-emacs" "q")
88             (local-bind-to-key "next-page" "\16")
89             (local-bind-to-key "previous-page" "\ev")
90             (local-bind-to-key "previous-page" "\eV")
91             (local-bind-to-key "beginning-of-file" "\e<")
92             (local-bind-to-key "end-of-file" "\e>")
93             (local-bind-to-key "exit-emacs" "Q")
94             (local-bind-to-key "exit-emacs" "\18\ 3")
95         )
96     )