![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mh-keymap.ml CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe|
Return to mh-keymap.ml CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe |
1.1 root 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" "")
24: (local-bind-to-key "&mh-move" "^")
25: (local-bind-to-key "&mh-re-move" "!")
26: (local-bind-to-key "&mh-previous-line" "\")
27: (local-bind-to-key "&mh-previous-line" "\")
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" "\")
35: (local-bind-to-key "redraw-display" "\ ")
36: (local-bind-to-key "search-forward" "\")
37: (local-bind-to-key "search-reverse" "\")
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" "\ ")
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" "")
52: (local-bind-to-key "scroll-one-line-down" "\e")
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" "\ ")
56: (local-bind-to-key "&mh-unmark" "u")
57: (local-bind-to-key "&mh-unmark" "U")
58: (local-bind-to-key "exit-emacs" "\\")
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" "\ ")
70: (local-bind-to-key "&mh-new-folder" "\\")
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" "")
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" "")
95: )
96: )
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.